X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftype-class.lisp;h=a2d889b7f4abb77d83d57e10c424cfc5bf94beef;hb=56ce3857f7830670d55d2fe17246353dff2e71f7;hp=fecb40faaed0d470f002872bcf625e6761b59c99;hpb=5277a0cbf1a72243cad6808883a4847acefc8e6b;p=sbcl.git

diff --git a/src/code/type-class.lisp b/src/code/type-class.lisp
index fecb40f..a2d889b 100644
--- a/src/code/type-class.lisp
+++ b/src/code/type-class.lisp
@@ -36,7 +36,7 @@
 			      (print-unreadable-object (x stream :type t)
 				(prin1 (type-class-name x) stream)))))
   ;; the name of this type class (used to resolve references at load time)
-  (name nil :type symbol) ; FIXME: should perhaps be REQUIRED-ARG?
+  (name nil :type symbol) ; FIXME: should perhaps be (MISSING-ARG) default?
   ;; Dyadic type methods. If the classes of the two types are EQ, then
   ;; we call the SIMPLE-xxx method. If the classes are not EQ, and
   ;; either type's class has a COMPLEX-xxx method, then we call it.