[lispy-cvs] CVS lispy

[mkennedy]

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"))))