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)