defsystem(iolib.common-lisp): Put :perform inline methods into
authorStas Boukarev <stassats@gmail.com>
Sat, 12 Jan 2013 16:17:42 +0000 (12 20:17 +0400)
committerStas Boukarev <stassats@gmail.com>
Sat, 12 Jan 2013 16:17:42 +0000 (12 20:17 +0400)
"pkgdcl" component description, because if they are specified for the
top-level system, they're not guaranteed to be triggered before any of
the components are loaded.
And they are needed to be run before gray-streams is loaded.

src/iolib.base.asd

index 61af14d..373a62b 100644 (file)
   :components
   ((:file "conduits")
    #+scl (:file "scl-gray-streams")
-   (:file "pkgdcl" :depends-on ("conduits" #+scl "scl-gray-streams"))
+   (:file "pkgdcl" :depends-on ("conduits" #+scl "scl-gray-streams")
+    :perform
+    (asdf:compile-op :before (o c)
+      (funcall (find-symbol (string '#:load-gray-streams)
+                            :iolib.conf)))
+    :perform
+    (asdf:load-op :before (o c)
+      (funcall (find-symbol (string '#:load-gray-streams)
+                            :iolib.conf)))
+    :perform
+    (asdf:load-source-op :before (o c)
+      (funcall (find-symbol (string '#:load-gray-streams)
+                            :iolib.conf))))
    (:file "gray-streams"
-     :depends-on ("pkgdcl" #+scl "scl-gray-streams"))
+    :depends-on ("pkgdcl" #+scl "scl-gray-streams"))
    (:file "definitions" :depends-on ("pkgdcl"))
-   (:file "types" :depends-on ("pkgdcl")))
-  :perform (asdf:compile-op :before (o c)
-             (funcall (find-symbol (string '#:load-gray-streams)
-                                   :iolib.conf)))
-  :perform (asdf:load-op :before (o c)
-             (funcall (find-symbol (string '#:load-gray-streams)
-                                   :iolib.conf)))
-  :perform (asdf:load-source-op :before (o c)
-             (funcall (find-symbol (string '#:load-gray-streams)
-                                   :iolib.conf))))
+   (:file "types" :depends-on ("pkgdcl"))))
 
 (asdf:defsystem :iolib.base
   :description "Base IOlib package, used instead of CL."