X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=d36f8c963f60dc4e991c4d42668383419cd8ee0f;hb=986ce2596822cc0871b609346aaf592348aca596;hp=90e35e87726440e660ad6a018bbb361a8cf4637a;hpb=667ec9d494530079bef28e8589dd0d3274b935ec;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 90e35e8..d36f8c9 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -223,7 +223,7 @@
 					 nil)))
 			      (:copier nil)
 			      (:constructor make-logical-hostname (name)))
-  (name (required-argument) :type simple-string))
+  (name (missing-arg) :type simple-string))
 
 (defun maybe-extract-logical-hostname (namestr start end)
   (declare (type simple-base-string namestr)