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

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