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