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

Modified Files: specials.lisp Log Message: *lispy-pathname* should be the parent of where lispy is actually loaded from.

--- /project/lispy/cvsroot/lispy/specials.lisp 2007/07/10 05:00:32 1.2 +++ /project/lispy/cvsroot/lispy/specials.lisp 2007/07/12 07:20:23 1.3 @@ -3,8 +3,8 @@ (defvar *lispy-map-url* (puri:parse-uri "http://common-lisp.net/project/lispy/repository/map.lisp-expr"))

(defvar *lispy-pathname* - (make-pathname :name nil :type nil :version nil - :defaults (parse-namestring *load-truename*))) + (let ((path (make-pathname :name nil :type nil :version nil :defaults (parse-namestring *load-truename*)))) + (make-pathname :directory (butlast (pathname-directory path)) :defaults path)))

(defvar *lispy-installation-pathname* (merge-pathnames #p"installation.lisp-expr" *lispy-pathname*))