From 6323254132b988900c83cf844695c5786e24c860 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 12 Jan 2013 20:17:42 +0400 Subject: [PATCH] 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. --- src/iolib.base.asd | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) 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." -- 2.11.4.GIT