X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fearly-c.lisp;h=9df9131d8a7bd74f062df6ca7cf03ad3d1dda9b7;hb=62da111c412394c9099cc8d35cd6dc06c5bf867b;hp=ace5c682dd247d1711343bc9e15f0b3b74cd389e;hpb=318fc08d6f6ce8a5506671bbcae7e91118db8fbc;p=sbcl.git

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index ace5c68..9df9131 100644
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -219,6 +219,8 @@ convention (names like *FOO*) for special variables" symbol))
       *debug-name-ellipsis* (make-debug-name-marker))
 
 (defun debug-name (type thing)
+  ;; We can _always_ do better thing NIL for this.
+  (aver thing)
   (let ((*debug-name-punt* nil))
     (labels ((walk (x)
                (typecase x