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

[Robert Strandh]

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