Changeset 8269


Ignore:
Timestamp:
Jan 25, 2008, 7:52:00 AM (12 years ago)
Author:
gb
Message:

IGNORING-EINTR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/macros.lisp

    r7974 r8269  
    35133513          (return ,res))))))
    35143514
     3515(defmacro ignoring-eintr (&body body)
     3516  (let* ((res (gensym))
     3517         (eintr (symbol-value (read-from-string "#$EINTR"))))
     3518    `(loop
     3519      (let* ((,res ,@body))
     3520        (unless (eql ,res (- ,eintr))
     3521          (return ,res))))))
     3522
    35153523(defmacro basic-stream-ioblock (s)
    35163524  `(or (basic-stream.state ,s)
Note: See TracChangeset for help on using the changeset viewer.