Changeset 7974


Ignore:
Timestamp:
Jan 1, 2008, 1:38:48 AM (12 years ago)
Author:
gb
Message:

WITH-EAGAIN expands into new stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2-devel/ccl/lib/macros.lisp

    r7956 r7974  
    35043504      (let ((,res (progn ,@body)))
    35053505        (if (eql ,res (- ,eagain))
    3506           (,(ecase direction
    3507              (:input 'process-input-wait)
    3508              (:output 'process-output-wait))
    3509            ,fd)
     3506          (progn
     3507            (setq ,res
     3508                  (,(ecase direction
     3509                           (:input 'process-input-would-block)
     3510                           (:output 'process-output-would-block))
     3511                    ,fd))
     3512            (unless (eq ,res t) (return ,res)))
    35103513          (return ,res))))))
    35113514
Note: See TracChangeset for help on using the changeset viewer.