/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.60 by toy, Fri Aug 2 14:43:08 2002 UTC revision 1.61 by pmai, Fri Aug 23 18:31:05 2002 UTC
# Line 1045  Line 1045 
1045         (declare (ignore ino nlink uid gid rdev         (declare (ignore ino nlink uid gid rdev
1046                          atime mtime ctime blksize blocks))                          atime mtime ctime blksize blocks))
1047         (unless okay         (unless okay
1048           (error "Error fstating ~S: ~A"           (error 'simple-file-error
1049                  stream                  :format-control "Error fstating ~S: ~A"
1050                  (unix:get-unix-error-msg dev)))                  :format-arguments (list stream (unix:get-unix-error-msg dev))))
1051         (if (zerop mode)         (if (zerop mode)
1052             nil             nil
1053             (truncate size (fd-stream-element-size stream)))))             (truncate size (fd-stream-element-size stream)))))
# Line 1371  Line 1371 
1371                           (okay                           (okay
1372                            (when (and output (= (logand orig-mode #o170000)                            (when (and output (= (logand orig-mode #o170000)
1373                                                 #o40000))                                                 #o40000))
1374                              (error "Cannot open ~S for output: Is a directory."                              (error 'simple-file-error
1375                                     namestring))                                     :format-control "Cannot open ~S for output: Is a directory."
1376                                       :format-arguments (list namestring)))
1377                            (setf mode (logand orig-mode #o777))                            (setf mode (logand orig-mode #o777))
1378                            t)                            t)
1379                           ((eql err/dev unix:enoent)                           ((eql err/dev unix:enoent)
1380                            nil)                            nil)
1381                           (t                           (t
1382                            (error "Cannot find ~S: ~A"                            (error 'simple-file-error
1383                                   namestring                                   :format-control "Cannot find ~S: ~A"
1384                                   (unix:get-unix-error-msg err/dev))))))))                                   :format-arguments
1385                                     (list namestring (unix:get-unix-error-msg err/dev)))))))))
1386              (unless (and exists              (unless (and exists
1387                           (do-old-rename namestring original))                           (do-old-rename namestring original))
1388                (setf original nil)                (setf original nil)

Legend:
Removed from v.1.60  
changed lines
  Added in v.1.61

  ViewVC Help
Powered by ViewVC 1.1.5