X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/ad8995ca2397db9b5d9e1d3357d5e1a6730fdfe4..80c777c5f30d0da25c383d951bb2c2125be33a3f:/unix.lisp

diff --git a/unix.lisp b/unix.lisp
index 3a01dd2..106b8f2 100644
--- a/unix.lisp
+++ b/unix.lisp
@@ -1,4 +1,4 @@
-;;; -*-lisp-*0
+;;; -*-lisp-*-
 ;;;
 ;;; $Id$
 ;;;
@@ -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)