[lispy-cvs] CVS lispy

[mkennedy]

Update of /project/lispy/cvsroot/lispy
In directory clnet:/tmp/cvs-serv11818

Modified Files:
	lispy.lisp 
Log Message:
Use format to print asdf-config.lisp.


--- /project/lispy/cvsroot/lispy/lispy.lisp	2007/07/10 05:00:32	1.2
+++ /project/lispy/cvsroot/lispy/lispy.lisp	2007/07/13 04:22:43	1.3
@@ -165,10 +165,17 @@
                          (push path
                                paths))))
                *lispy-installation*)
-      (print `(let ((root (make-pathname :directory (pathname-directory *load-truename*))))
-                (dolist (path ',paths)
-                  (pushnew (merge-pathnames path root) asdf:*central-registry* :test 'equal)))
-             stream))))
+      #+nil (print `(let ((root (make-pathname :directory (pathname-directory *load-truename*))))
+		      (dolist (path ',paths)
+			(pushnew (merge-pathnames path root) asdf:*central-registry* :test 'equal)))
+		   stream)
+      (format stream
+"(let ((root (make-pathname :directory (pathname-directory *load-truename*))))
+   (dolist (path '(~{~S~}))
+     (pushnew (merge-pathnames path root)
+              asdf:*central-registry* 
+              :test 'equal)))"
+              paths))))
 
 (defgeneric fetch (module))