Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
89c9b7e7
Commit
89c9b7e7
authored
Feb 15, 1992
by
wlott
Browse files
Fixed some constant names that changed.
parent
78246d64
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/filesys.lisp
View file @
89c9b7e7
...
...
@@ -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.2
6
1992/02/1
4 23:44:50
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.2
7
1992/02/1
5 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
)))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment