/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40 by rstrandh, Sat Jan 1 10:43:39 2005 UTC revision 1.41 by rstrandh, Sat Jan 1 12:55:01 2005 UTC
# Line 264  Line 264 
264    (let ((item (accept 'command :prompt "Extended Command")))    (let ((item (accept 'command :prompt "Extended Command")))
265      (execute-frame-command *application-frame* item)))      (execute-frame-command *application-frame* item)))
266    
267  (eval-when (:compile-toplevel)  (eval-when (:compile-toplevel :load-toplevel)
268    (define-presentation-type completable-pathname ()    (define-presentation-type completable-pathname ()
269    :inherit-from 'pathname))    :inherit-from 'pathname))
270    

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5