[lispy-cvs] CVS lispy

[mkennedy]

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