[mcclim-cvs] CVS update: mcclim/stream-output.lisp

[Andy Hefner]

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 @@
      , at 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))