collect, unix: Rename `mdw.collect' package to just `collect'.

[lisp] / unix.lisp

diff --git a/unix.lisp b/unix.lisp
index 3a01dd2..4465740 100644 (file)
--- a/unix.lisp
+++ b/unix.lisp
@@ -1,4 +1,4 @@
-;;; -*-lisp-*0
+;;; -*-lisp-*-
 ;;;
 ;;; $Id$
 ;;;
@@ -24,7 +24,7 @@
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:mdw.unix
-  (:use #:common-lisp #:mdw.base #:mdw.collect)
+  (:use #:common-lisp #:mdw.base #:collect)
   (:export #:unix-error #:errno-value #:with-errno-handlers
           #:syscall #:syscall*
           #:stat #:sys-stat
@@ -123,7 +123,7 @@ signal the unix-error condition, with NAME 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)