X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/b2c12b4eaf6e5c43791d95080a243c35f97ee488..ad18ddfca6c8a13c604759c0759017e3cd6280d7:/unix.lisp

diff --git a/unix.lisp b/unix.lisp
index f82fbf1..be823f0 100644
--- a/unix.lisp
+++ b/unix.lisp
@@ -130,8 +130,8 @@
 	     `(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."
@@ -184,7 +184,7 @@
 		       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))