[climacs-cvs] CVS update: climacs/gui.lisp

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv28467 Modified Files: gui.lisp Log Message: Committed fix for bug found by Christophe Rhodes. Thanks. Date: Sat Jan 1 13:55:02 2005 Author: rstrandh Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.40 climacs/gui.lisp:1.41 --- climacs/gui.lisp:1.40 Sat Jan 1 11:43:39 2005 +++ climacs/gui.lisp Sat Jan 1 13:55:01 2005 @@ -264,7 +264,7 @@ (let ((item (accept 'command :prompt "Extended Command"))) (execute-frame-command *application-frame* item))) -(eval-when (:compile-toplevel) +(eval-when (:compile-toplevel :load-toplevel) (define-presentation-type completable-pathname () :inherit-from 'pathname))