Changeset 14076

Timestamp:

08/13/12 06:22:13 (8 years ago)

Author:

ehuelsmann

Message:

Set function slot for CL:LISTEN when hooking up gray streams.

Patch by Stas Boukarev.

File:

• trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

@@ -157 +157 @@
 (defvar *ansi-peek-char* #'peek-char)
 (defvar *ansi-unread-char* #'unread-char)
-(defvar *ansi-listen* nil)
+(defvar *ansi-listen* #'listen)
 (defvar *ansi-read-line* #'read-line)
 (defvar *ansi-read-char-no-hang* #'read-char-no-hang)
@@ -640 +640 @@
 (setf (symbol-function 'common-lisp::write-sequence) #'gray-write-sequence)
 (setf (symbol-function 'common-lisp::file-position) #'gray-file-position)
-
+(setf (symbol-function 'common-lisp::listen) #'gray-listen)
 #|
 (setf (symbol-function 'common-lisp::make-two-way-stream) #'gray-make-two-way-stream)