Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv25453
Modified Files: stream-output.lisp Log Message: Fix assumption in BEEP function that standard output must be a CLIM stream.
Date: Thu Apr 21 04:43:20 2005 Author: ahefner
Index: mcclim/stream-output.lisp diff -u mcclim/stream-output.lisp:1.54 mcclim/stream-output.lisp:1.55 --- mcclim/stream-output.lisp:1.54 Sun Apr 17 18:42:47 2005 +++ mcclim/stream-output.lisp Thu Apr 21 04:43:19 2005 @@ -540,9 +540,10 @@ ,@body))
(defmethod beep (&optional medium) - (when (null medium) - (setq medium (sheet-medium *standard-output*))) - (medium-beep medium)) - + (if medium + (medium-beep medium) + (when (sheetp *standard-output*) + (medium-beep (sheet-medium *standard-output*))))) + (defmethod scroll-quantum ((sheet standard-extended-output-stream)) (stream-line-height sheet))