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

[Elliott Johnson]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv6045

Modified Files:
	gui.lisp 
Log Message:
Wrapped an (EVAL-WHEN (:compile-toplevel) ...) around COMPLETABLE-PATHNAME to rid us of an asdf style warning
Date: Thu Dec 30 11:42:46 2004
Author: ejohnson

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.34 climacs/gui.lisp:1.35
--- climacs/gui.lisp:1.34	Thu Dec 30 06:37:34 2004
+++ climacs/gui.lisp	Thu Dec 30 11:42:45 2004
@@ -220,8 +220,9 @@
   (let ((item (accept 'command :prompt "Extended Command")))
     (execute-frame-command *application-frame* item)))
 
-(define-presentation-type completable-pathname ()
-  :inherit-from 'pathname)
+(eval-when (:compile-toplevel)
+  (define-presentation-type completable-pathname ()
+  :inherit-from 'pathname))
 
 (defun filename-completer (so-far mode)
   (flet ((remove-trail (s)