Changeset 14076
- Timestamp:
- 08/13/12 06:22:13 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp
r13272 r14076 157 157 (defvar *ansi-peek-char* #'peek-char) 158 158 (defvar *ansi-unread-char* #'unread-char) 159 (defvar *ansi-listen* nil)159 (defvar *ansi-listen* #'listen) 160 160 (defvar *ansi-read-line* #'read-line) 161 161 (defvar *ansi-read-char-no-hang* #'read-char-no-hang) … … 640 640 (setf (symbol-function 'common-lisp::write-sequence) #'gray-write-sequence) 641 641 (setf (symbol-function 'common-lisp::file-position) #'gray-file-position) 642 642 (setf (symbol-function 'common-lisp::listen) #'gray-listen) 643 643 #| 644 644 (setf (symbol-function 'common-lisp::make-two-way-stream) #'gray-make-two-way-stream)
Note: See TracChangeset
for help on using the changeset viewer.