X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix.lisp;h=a25597930a4de581e70dae54b4d1fa3d57270f07;hb=50f728671defadb8f7b1e8691c984cb0e6aba17c;hp=0a0da11540469c053512bfbd2c7747c05570e881;hpb=f9ef8b045b60ae064c7bd40af599b46707ea4d8a;p=sbcl.git

diff --git a/src/code/unix.lisp b/src/code/unix.lisp
index 0a0da11..a255979 100644
--- a/src/code/unix.lisp
+++ b/src/code/unix.lisp
@@ -47,7 +47,7 @@
 
 ;;;; 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))
@@ -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."
-  (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)