Changeset 8345

Timestamp:

Jan 28, 2008, 5:03:07 PM (17 years ago)

Author:

gz

Message:

Just use %get-errno, duh

File:

• trunk/source/level-1/linux-files.lisp (modified) (2 diffs)

trunk/source/level-1/linux-files.lisp

@@ -349 +349 @@
     "unknown"))
 
-(defun try-hard-to-get-errno (err)
-  (when (eq err -1)
-    (let ((nerr (%get-errno)))
-      (unless (eq nerr 0) (setq err nerr))))
-  #+darwin-target
-  (when (eq err -1)
-    ;; Not thread safe, but what else can I do??
-    (let ((nerr (pref (foreign-symbol-address "_errno") :signed)))
-      (unless (eq nerr 0) (setq err nerr))))
-  err)
-
 (defun copy-file-attributes (source-path dest-path)
   "Copy the mode, owner, group and modification time of source-path to dest-path.
@@ -374 +363 @@
                       (unless (eql err 0)
                         (setq win nil)
-                        ;; We need the real errno so we can tell if it's a permission
-                        ;; error or something else...
                         (when (eql err -1)
-                          (setq err (try-hard-to-get-errno err)))
+                          (setq err (- (%get-errno))))
                         (unless (eql err #$EPERM) (%errno-disp err dest-path))))))
         (errchk (#_chmod cnamestr mode))