Commit 89c9b7e7 authored by wlott's avatar wlott
Browse files

Fixed some constant names that changed.

parent 78246d64
......@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.26 1992/02/14 23:44:50 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.27 1992/02/15 12:47:35 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -847,12 +847,12 @@
size
(decode-universal-time-for-files mtime year)
tail
(= (logand mode unix::s_ifmt) unix::s_ifdir))))
(= (logand mode unix:s-ifmt) unix:s-ifdir))))
(t (format t "Couldn't stat ~A -- ~A.~%"
tail
(unix:get-unix-error-msg dev-or-err))))
(when return-list
(push (if (= (logand mode unix::s_ifmt) unix::s_ifdir)
(push (if (= (logand mode unix:s-ifmt) unix:s-ifdir)
(pathname (concatenate 'string namestring "/"))
file)
result)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment