syscall: Don't require (function ...) for the name argument.

[lisp] / unix.lisp

diff --git a/unix.lisp b/unix.lisp
index 3a01dd27de3d0290ce7bdfb123be5f431fa7608a..adf95ff2de01a338afcd93e10ddb3ebc04b858b0 100644 (file)
--- 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."
 (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)
 
 (macrolet ((doit (doc slots)
             `(defstruct (stat (:predicate statp)