Changeset 10514

Timestamp:

08/21/08 06:51:11 (3 months ago)

Author:

gb

Message:

INT-ERRNO-CALL: return (negative) errno if primary result negative
(same conventions as syscall interface, so we can stop using syscall
interface as often.)

Files:

• trunk/source/lib/macros.lisp (modified) (1 diff)

trunk/source/lib/macros.lisp

@@ -3650 +3650 @@
-             ,@body)
-        (setf (stream-output-timeout ,stream) ,old-output-timeout)))))
+
+;;; FORM returns a signed integer.  If it's non-negative, return that
+;;; value, otherwise, return the (negative) errnor value returned by
+;;; %GET-ERRNO
+(defmacro int-errno-call (form)
+  (let* ((value (gensym)))
+    `(let* ((,value ,form))
+      (if (< ,value 0)
+        (%get-errno)
+        ,value))))
+