diff --git a/cl-info.asd b/cl-info.asd
index d8c01eb..d39f14e 100644
--- a/cl-info.asd
+++ b/cl-info.asd
@@ -1,29 +1,26 @@
-#|
-  This file is a part of cl-info project.
-|#
-
-
 (defsystem cl-info
-           :version (:read-file-form "version.lisp-expr")
-           :author ""
-           :license ""
-           :class :package-inferred-system
-           :pathname "src"
-           :depends-on (
-                                   "cl-info/core")
-           :description ""
-           :long-description
-           #.(with-open-file (stream (merge-pathnames
-                                      #p"README.rst"
-                                      (or *load-pathname* *compile-file-pathname*))
-                                     :if-does-not-exist nil
-                                     :direction :input)
-               (when stream
-                 (let ((seq (make-array (file-length stream)
-                                        :element-type 'character
-                                        :fill-pointer t)))
-                   (setf (fill-pointer seq)
-                         (read-sequence seq stream))
-                   seq)))
-           :in-order-to ((test-op (test-op cl-info-test))))
+  :version (:read-file-form "version.lisp-expr")
+  :author ""
+  :license ""
+  :class :package-inferred-system
+  :pathname "src"
+  :depends-on ("cl-info/core")
+  :description ""
+  :long-description
+  #.(with-open-file (stream (merge-pathnames
+                             #p"README.rst"
+                             (or *load-pathname* *compile-file-pathname*))
+                            :if-does-not-exist nil
+                            :direction :input)
+      (when stream
+        (let ((seq (make-array (file-length stream)
+                               :element-type 'character
+                               :fill-pointer t)))
+          (setf (fill-pointer seq)
+                (read-sequence seq stream))
+          seq)))
+  :perform (compile-op :before (o c)
+                       #+ros.installing
+                       (roswell:roswell '("install" "40ants/defmain")))
+  :in-order-to ((test-op (test-op cl-info-test))))