/[slime]/slime/swank-clisp.lisp
ViewVC logotype

Diff of /slime/swank-clisp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85 by trittweiler, Tue Dec 30 18:57:54 2008 UTC revision 1.86 by heller, Sat Jan 3 21:13:00 2009 UTC
# Line 177  Line 177 
177                          :element-type 'character                          :element-type 'character
178                          :external-format external-format))                          :external-format external-format))
179    
180    #-win32
181  (defimplementation wait-for-input (streams &optional timeout)  (defimplementation wait-for-input (streams &optional timeout)
182    (assert (member timeout '(nil t)))    (assert (member timeout '(nil t)))
183    (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))    (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

  ViewVC Help
Powered by ViewVC 1.1.5