* WITH-ROOM-FOR-GRAPHICS, WITH-END-OF-LINE-ACTION,

WITH-END-OF-PAGE-ACTION: if STREAM is T, use *STANDARD-OUTPUT*

stream-output.lisp

@@ -316,10 +316,16 @@
 (defmacro with-room-for-graphics ((&optional (stream t)
 				   &key (move-cursor t) height record-type)
 				  &body body)
-  (declare (ignore stream move-cursor height record-type body))
+  (declare (ignore stream move-cursor height record-type body)
+           (type symbol stream))
+  (when (eq stream t)
+    (setq stream '*standard-output*))
   '(error "WITH-ROOM-FOR-GRAPHICS not implemented!"))
 
 (defmacro with-end-of-line-action ((stream action) &body body)
+  (declare (type symbol stream))
+  (when (eq stream t)
+    (setq stream '*standard-output*))
   (let ((sym (gensym)))
     `(let ((,sym (stream-end-of-line-action ,stream)))
        (setf (stream-end-of-line-action ,stream) ,action)
@@ -328,6 +334,9 @@
 	 (setf (stream-end-of-line-action ,stream) ,sym)))))
 
 (defmacro with-end-of-page-action ((stream action) &body body)
+  (declare (type symbol stream))
+  (when (eq stream t)
+    (setq stream '*standard-output*))
   (let ((sym (gensym)))
     `(let ((,sym (stream-end-of-page-action ,stream)))
        (setf (stream-end-of-page-action ,stream) ,action)