[pal-cvs] CVS pal

[CVS User tneste]

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