Update of /project/pal/cvsroot/pal
In directory tiger.common-lisp.net:/tmp/cvs-serv14519
Modified Files:
pal.lisp
Log Message:
Fixed the problems with *PAL-DIRECTORY*
--- /project/pal/cvsroot/pal/pal.lisp 2009/08/17 12:43:01 1.44
+++ /project/pal/cvsroot/pal/pal.lisp 2011/11/17 07:48:40 1.45
@@ -4,9 +4,7 @@
(in-package :pal)
-(defparameter *pal-directory* (make-pathname :directory (pathname-directory *load-pathname*)
- :host (pathname-host *load-pathname*)
- :device (pathname-device *load-pathname*)))
+(defparameter *pal-directory* (asdf:system-source-directory :pal))
(defvar *messages* nil "List of messages drawn on screen with MESSAGE.")
(defvar *pal-running* nil "T if PAL is already running.")
