X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fgeneric%2Fobjdef.lisp;h=8f67849a4c7f8543b7df6662966c66ac4cd2f2d1;hb=0c7ffa8fb85a94482814835c9f28abfd0400ab99;hp=50b7a53bbda73330d08be3e04526b10fbbb84d0b;hpb=23f1e2ef66bcc31ca7ea765a82a97998119aa4d5;p=sbcl.git

diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index 50b7a53..8f67849 100644
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -26,6 +26,9 @@
 ;;;;     SIMPLE-FUN-DEBUG-INFO slot holding a tagged object which needs
 ;;;;     to be GCed, you need to tweak scav_code_header() and
 ;;;;     verify_space() in gencgc.c, and the corresponding code in gc.c.
+;;;;   * The src/runtime/print.c code (used by LDB) is implemented
+;;;;     using hand-written lists of slot names, which aren't automatically
+;;;;     generated from the code in this file.
 ;;;;   * Various code (e.g. STATIC-FSET in genesis.lisp) is hard-wired
 ;;;;     to know the name of the last slot of the object the code works
 ;;;;     with, and implicitly to know that the last slot is special (being
@@ -190,7 +193,8 @@
 	:ref-trans %simple-fun-name
 	:set-known (unsafe)
 	:set-trans (setf %simple-fun-name))
-  (arglist :ref-known (flushable)
+  (arglist :type list
+           :ref-known (flushable)
 	   :ref-trans %simple-fun-arglist
 	   :set-known (unsafe)
 	   :set-trans (setf %simple-fun-arglist))