Changeset 357

Timestamp:

Jan 20, 2004, 11:37:54 PM (21 years ago)

Author:

Gary Byers

Message:

Bryan O'Connor's fix to STREAM-UNREAD-CHAR method for ECHO-STREAM.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-streams.lisp

@@ -1264 +1264 @@
 (defmethod stream-unread-char ((s echo-stream) c)
   (call-next-method s c)
-  (setf (slot-value s 'did-untyi) nil))
+  (setf (slot-value s 'did-untyi) c))
 
 (defmethod stream-clear-input ((s echo-stream))