X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=d549fa7378af68372dc7793a8657a0b1907176df;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=90a7ecee5f6a619cafcbbc4353068e01e18e58d4;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 90a7ece..d549fa7 100644
--- 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))