Changeset 8982


Ignore:
Timestamp:
Apr 1, 2008, 5:30:51 PM (11 years ago)
Author:
gb
Message:

Use progn in IGNORING-EINTR, FF-CALL-IGNORING-EINTR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/macros.lisp

    r8980 r8982  
    35403540         (eintr (symbol-value (read-from-string "#$EINTR"))))
    35413541    `(loop
    3542        (let* ((,res ,@body))
     3542       (let* ((,res (progn ,@body)))
    35433543         (unless (eql ,res (- ,eintr))
    35443544           (return ,res))))))
     
    35483548         (eintr (symbol-value (read-from-string "#$EINTR"))))
    35493549    `(loop
    3550        (let* ((,res ,@body))
     3550       (let* ((,res (progn ,@body)))
    35513551         (declare (fixnum ,res))
    35523552         (when (< ,res 0)
Note: See TracChangeset for help on using the changeset viewer.