0.pre7.74:

[sbcl.git] / src / code / filesys.lisp

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 90e35e8..d36f8c9 100644 (file)
--- 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)