[mcclim-cvs] CVS mcclim/Apps/Listener

[thenriksen]

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