From: Stas Boukarev <stassats@gmail.com>
Date: Sat, 12 Jan 2013 16:17:42 +0000 (+0400)
Subject: defsystem(iolib.common-lisp): Put :perform inline methods into
X-Git-Tag: v0.8.0~27
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/6323254132b988900c83cf844695c5786e24c860

defsystem(iolib.common-lisp): Put :perform inline methods into
"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.
---

diff --git a/src/iolib.base.asd b/src/iolib.base.asd
index 61af14d..373a62b 100644
--- a/src/iolib.base.asd
+++ b/src/iolib.base.asd
@@ -15,20 +15,23 @@
   :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."