projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.16:
[sbcl.git]
/
src
/
code
/
unix.lisp
diff --git
a/src/code/unix.lisp
b/src/code/unix.lisp
index
0a0da11
..
a255979
100644
(file)
--- a/
src/code/unix.lisp
+++ b/
src/code/unix.lisp
@@
-47,7
+47,7
@@
\f
;;;; Lisp types used by syscalls
\f
;;;; Lisp types used by syscalls
-(deftype unix-pathname () 'simple-string)
+(deftype unix-pathname () 'simple-base-string)
(deftype unix-fd () `(integer 0 ,most-positive-fixnum))
(deftype unix-file-mode () '(unsigned-byte 32))
(deftype unix-fd () `(integer 0 ,most-positive-fixnum))
(deftype unix-file-mode () '(unsigned-byte 32))
@@
-796,7
+796,7
@@
previous timer after the body has finished executing"
(defun unix-file-kind (name &optional check-for-links)
#!+sb-doc
"Return either :FILE, :DIRECTORY, :LINK, :SPECIAL, or NIL."
(defun unix-file-kind (name &optional check-for-links)
#!+sb-doc
"Return either :FILE, :DIRECTORY, :LINK, :SPECIAL, or NIL."
- (declare (simple-string name))
+ (declare (simple-base-string name))
(multiple-value-bind (res dev ino mode)
(if check-for-links (unix-lstat name) (unix-stat name))
(declare (type (or fixnum null) mode)
(multiple-value-bind (res dev ino mode)
(if check-for-links (unix-lstat name) (unix-stat name))
(declare (type (or fixnum null) mode)