0.7.7.26:

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

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 90a7ece..d549fa7 100644 (file)
--- a/src/code/room.lisp
+++ b/src/code/room.lisp
@@ -32,7 +32,7 @@
   (let ((widetag (primitive-object-widetag obj))
        (lowtag (primitive-object-lowtag obj))
        (name (primitive-object-name obj))
-       (variable (primitive-object-var-length obj))
+       (variable (primitive-object-variable-length-p obj))
        (size (primitive-object-size obj)))
     (cond
      ((not lowtag))
@@ -100,7 +100,7 @@
       (make-room-info :name 'instance
                      :kind :instance))
 
-); eval-when (compile eval)
+) ; EVAL-WHEN
 
 (defparameter *room-info* '#.*meta-room-info*)
 (deftype spaces () '(member :static :dynamic :read-only))