Changeset 14076


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

    r13272 r14076  
    157157(defvar *ansi-peek-char* #'peek-char)
    158158(defvar *ansi-unread-char* #'unread-char)
    159 (defvar *ansi-listen* nil)
     159(defvar *ansi-listen* #'listen)
    160160(defvar *ansi-read-line* #'read-line)
    161161(defvar *ansi-read-char-no-hang* #'read-char-no-hang)
     
    640640(setf (symbol-function 'common-lisp::write-sequence) #'gray-write-sequence)
    641641(setf (symbol-function 'common-lisp::file-position) #'gray-file-position)
    642 
     642(setf (symbol-function 'common-lisp::listen) #'gray-listen)
    643643#|
    644644(setf (symbol-function 'common-lisp::make-two-way-stream) #'gray-make-two-way-stream)
Note: See TracChangeset for help on using the changeset viewer.