diff --git a/demo/listener.lisp b/demo/listener.lisp index db7951ab6f843e39cbfa825c6994aeaee29e81ea..ce10363099735c518f27482480a486caf6a30eb0 100644 --- a/demo/listener.lisp +++ b/demo/listener.lisp @@ -95,9 +95,8 @@ (let* ((*lisp-listener-io* window) (*standard-input* *lisp-listener-io*) (*standard-output* *lisp-listener-io*) - #+(or Minima allegro) (*error-output* *lisp-listener-io*) + #+allegro (*error-output* *lisp-listener-io*) (*query-io* *lisp-listener-io*) - #+Minima (*debug-io* *lisp-listener-io*) (*package* *package*) (*listener-depth* (1+ *listener-depth*)) (*** nil) (** nil) (* nil) @@ -218,7 +217,6 @@ (defun listener-debugger-hook (condition hook) (declare (ignore hook)) (let* ((*application-frame* *lisp-listener-frame*) - #+Minima (*debug-io* (frame-query-io *application-frame*)) (*error-output* (frame-standard-output *application-frame*)) (*debugger-condition* condition) (*debugger-restarts* (compute-restarts))) @@ -557,8 +555,6 @@ (object) (list `(,object))) - ;#-Minima - (define-lisp-listener-command (com-demonstrate-clim :name "Demonstrate CLIM") () (start-demo :port (port *application-frame*))) @@ -591,7 +587,6 @@ (define-presentation-method presentation-typep (object (type printer)) (symbolp object)) -#-Minima (define-lisp-listener-command (com-hardcopy-file :name t) ((file 'pathname :provide-default t :prompt "file" @@ -621,23 +616,19 @@ (define-lisp-listener-command (com-show-some-commands :name t) () (let ((ptype `(command :command-table user-command-table))) (formatting-table () - #-Minima (formatting-row () (formatting-cell () (present `(com-show-file ,(merge-pathnames "foo" (user-homedir-pathname))) ptype))) - #-Minima (formatting-row () (formatting-cell () (present `(com-show-directory ,(merge-pathnames "*" (user-homedir-pathname))) ptype))) - #-Minima (formatting-row () (formatting-cell () (present `(com-copy-file ,(merge-pathnames "source" (user-homedir-pathname)) ,(merge-pathnames "dest" (user-homedir-pathname))) ptype))) - #-Minima (formatting-row () (formatting-cell () (present `(com-hardcopy-file ,(merge-pathnames "quux" (user-homedir-pathname))