1.0.14.16: add explicit CHECK-CONSTANT-MODIFICATION policy

[sbcl.git] / src / compiler / early-c.lisp

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index ace5c68..9df9131 100644 (file)
--- 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