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