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

Diff of /slime/swank-cmucl.lisp

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

revision 1.194 by heller, Sun Sep 14 17:10:34 2008 UTC revision 1.195 by heller, Mon Sep 15 10:41:03 2008 UTC
# Line 198  specific functions.") Line 198  specific functions.")
198     (let ((ready (remove-if-not #'listen streams)))     (let ((ready (remove-if-not #'listen streams)))
199       (when ready (return ready)))       (when ready (return ready)))
200     (when timeout (return nil))     (when timeout (return nil))
201     (if *pending-slime-interrupts* (return :interrupt))     (when (check-slime-interrupts) (return :interrupt))
202     (let* ((f (constantly t))     (let* ((f (constantly t))
203            (handlers (loop for s in streams            (handlers (loop for s in streams
204                            collect (add-one-shot-handler s f))))                            collect (add-one-shot-handler s f))))

Legend:
Removed from v.1.194  
changed lines
  Added in v.1.195

  ViewVC Help
Powered by ViewVC 1.1.5