mdw-base.lisp: Move `with-places' to earlier in the file.

[lisp] / unix.lisp

diff --git a/unix.lisp b/unix.lisp
index f82fbf1f25fd73b5aa9d4a0c6d0ab5310be3b773..be823f0b3bbb6d39943b2bc2ecbb2e96afdf4a19 100644 (file)
--- a/unix.lisp
+++ b/unix.lisp
@@ -130,8 +130,8 @@ (macrolet ((doit (doc slots)
             `(defstruct (stat (:predicate statp)
                               (:conc-name st-)
                               (:constructor %make-stat-boa ,slots))
             `(defstruct (stat (:predicate statp)
                               (:conc-name st-)
                               (:constructor %make-stat-boa ,slots))

-               ,doc
-               ,@slots)))
+               ,doc
+               ,@slots)))

   (doit
    "Structure representing all the useful information `stat' returns about a
    file."
   (doit
    "Structure representing all the useful information `stat' returns about a
    file."


@@ -184,7 +184,7 @@ (defun copy-file (from to &optional (how 0))
                       to
                       (logior unix:O_WRONLY unix:O_CREAT how)
                       (logand (st-mode st) #o777))
                       to
                       (logior unix:O_WRONLY unix:O_CREAT how)
                       (logand (st-mode st) #o777))

-        (sys-fchmod out (st-mode st))
+       (sys-fchmod out (st-mode st))

        (sys-utimes to (st-atime st) 0 (st-mtime st) 0)
        (with-errno-handlers ()
          (sys-fchown out (st-uid st) (st-gid st))
        (sys-utimes to (st-atime st) 0 (st-mtime st) 0)
        (with-errno-handlers ()
          (sys-fchown out (st-uid st) (st-gid st))