X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpathname.lisp;h=efed3812c2116c024d3e764d3291b33e472e8701;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=2fa8fa069fc2ca2c043104710b0655ea0d990c7a;hpb=8c685e1fee08b4d1d9ef43b8d2784ac283c94096;p=sbcl.git diff --git a/src/code/pathname.lisp b/src/code/pathname.lisp index 2fa8fa0..efed381 100644 --- a/src/code/pathname.lisp +++ b/src/code/pathname.lisp @@ -36,14 +36,14 @@ (:include host (parse #'parse-logical-namestring) (parse-native - (lambda (x) + (lambda (&rest x) (error "called PARSE-NATIVE-NAMESTRING using a ~ - logical host: ~S" x))) + logical host: ~S" (first x)))) (unparse #'unparse-logical-namestring) (unparse-native - (lambda (x) + (lambda (&rest x) (error "called NATIVE-NAMESTRING using a ~ - logical host: ~S" x))) + logical host: ~S" (first x)))) (unparse-host (lambda (x) (logical-host-name (%pathname-host x)))) @@ -52,7 +52,7 @@ (unparse-enough #'unparse-enough-namestring) (unparse-directory-separator ";") (customary-case :upper))) - (name "" :type simple-base-string) + (name "" :type simple-string) (translations nil :type list) (canon-transls nil :type list))