/[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.76 by heller, Sun Sep 14 17:10:34 2008 UTC revision 1.77 by heller, Mon Sep 15 10:41:03 2008 UTC
# Line 140  Line 140 
140    (assert (member timeout '(nil t)))    (assert (member timeout '(nil t)))
141    (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))    (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))
142      (loop      (loop
143       (cond (*pending-slime-interrupts* (return :interrupt))       (cond ((check-slime-interrupts) (return :interrupt))
144             (timeout             (timeout
145              (socket:socket-status streams 0 0)              (socket:socket-status streams 0 0)
146              (return (loop for (s _ . x) in streams              (return (loop for (s _ . x) in streams

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

  ViewVC Help
Powered by ViewVC 1.1.5