Update of /project/lispy/cvsroot/lispy In directory clnet:/tmp/cvs-serv30086
Modified Files: lispy.asd Log Message: Initialize Lispy after loading the system.
--- /project/lispy/cvsroot/lispy/lispy.asd 2007/07/10 05:00:32 1.2 +++ /project/lispy/cvsroot/lispy/lispy.asd 2007/07/12 05:56:04 1.3 @@ -3,6 +3,8 @@ (:use #:common-lisp #:asdf))
+(in-package #:lispy-system) + (defsystem #:lispy :components ((:file "packages") (:file "specials" :depends-on ("packages")) @@ -13,4 +15,7 @@ #:gzip-stream #:archive #:ironclad - #:cl-fad)) \ No newline at end of file + #:cl-fad)) + +(defmethod perform :after ((o load-op) (c (eql (find-system 'lispy)))) + (funcall (intern "INITIALIZE" (find-package "LISPY"))))