From 287fd2e6b9ff8d33434595d8e6b6b61fc4a7f9cc Mon Sep 17 00:00:00 2001
Message-Id: <287fd2e6b9ff8d33434595d8e6b6b61fc4a7f9cc.1717104871.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Tue, 11 Apr 2006 18:20:46 +0100
Subject: [PATCH] syscall: Don't require (function ...) for the name argument.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

In fact, don't allow it.
---
 unix.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/unix.lisp b/unix.lisp
index 3a01dd2..adf95ff 100644
--- a/unix.lisp
+++ b/unix.lisp
@@ -123,7 +123,7 @@ (defun syscall* (name func &rest args)
 (defmacro syscall (func &rest args)
   "Call Unix system call FUNC, passing it ARGS.  If it returns an error,
 signal the unix-error condition, with FUNC and ARGS."
-  `(syscall* ',func ,func ,@args))
+  `(syscall* ',func #',func ,@args))
 
 (macrolet ((doit (doc slots)
 	     `(defstruct (stat (:predicate statp)
-- 
[mdw]