Changeset 8269
- Timestamp:
- Jan 25, 2008, 7:52:00 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/macros.lisp
r7974 r8269 3513 3513 (return ,res)))))) 3514 3514 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 3515 3523 (defmacro basic-stream-ioblock (s) 3516 3524 `(or (basic-stream.state ,s)
Note: See TracChangeset
for help on using the changeset viewer.