Changeset 8347

Timestamp:

Jan 28, 2008, 5:45:10 PM (17 years ago)

Author:

gz

Message:

Update to trunk r8346

Location:

branches/event-ide/ccl

Files:

• level-1/linux-files.lisp (modified) (2 diffs)
• lib/misc.lisp (modified) (1 diff)

branches/event-ide/ccl/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))

branches/event-ide/ccl/lib/misc.lisp

@@ -395 +395 @@
           (ecase internal-time-units-per-second
             (1000000 6)
-            (100  3)))
+            (1000  3)))
          (cpu-count (cpu-count)))
     (format s "~&~S took ~:D ~a (~,vF seconds) to run ~%~20twith ~D available CPU core~P."