Use ASDF/PACKAGE:SYMBOL-CALL
authorStelian Ionescu <sionescu@cddr.org>
Sun, 13 Jan 2013 22:23:36 +0000 (13 23:23 +0100)
committerStelian Ionescu <sionescu@cddr.org>
Mon, 21 Jan 2013 20:14:13 +0000 (21 21:14 +0100)
src/iolib.base.asd

index 94186d3..012f292 100644 (file)
    (: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)))
+      (asdf/package:symbol-call :iolib.conf '#:load-gray-streams))
     :perform
     (asdf:load-op :before (o c)
-      (funcall (find-symbol (string '#:load-gray-streams)
-                            :iolib.conf)))
+      (asdf/package:symbol-call :iolib.conf '#:load-gray-streams))
     :perform
     (asdf:load-source-op :before (o c)
-      (funcall (find-symbol (string '#:load-gray-streams)
-                            :iolib.conf))))
+      (asdf/package:symbol-call :iolib.conf '#:load-gray-streams)))
    (:file "gray-streams"
     :depends-on ("pkgdcl" #+scl "scl-gray-streams"))
    (:file "definitions" :depends-on ("pkgdcl"))