Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv14107

Modified Files: package.lisp Log Message: Patch from Martin Raspaud to make the Listener compile when fasl directory != source directory.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/package.lisp 2005/09/22 11:40:31 1.2 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/package.lisp 2006/11/24 18:37:54 1.3 @@ -9,4 +9,6 @@

(eval-when (:load-toplevel) ; (format t "~&~%!@#%^!@#!@ ... ~A~%~%" *load-truename*) - (defparameter *icon-path* (merge-pathnames #P"icons/" *load-truename*))) + (defparameter *icon-path* (merge-pathnames + #P"icons/" + (load-time-value (or #.*compile-file-pathname* *load-pathname*)))))