[mcclim-devel] Using common-lisp-controller with the Listener

Hi all,

here is a small patch in order to fix the listener when used with the common-lisp-controller. The patch was suggested by Athas.

Martin (aka zorgzorg2)

--- mcclim/Apps/Listener/package.lisp 2005-09-29 18:42:36.000000000 +0200 +++ mcclim/Apps/Listener/package.lisp 2006-11-24 14:32:16.000000000 +0100 @@ -9,4 +9,4 @@

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