X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=b8d966e1d8e4e69108c83a356b9dc59e99b70522;hb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;hp=6d16b358773c2df49cea1b492eeb2acf863ed332;hpb=edaebea5b5e6682b36f4067e3b187bd9fb4a5c25;p=sbcl.git

diff --git a/src/code/room.lisp b/src/code/room.lisp
index 6d16b35..b8d966e 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-variable-length obj))
+	(variable (primitive-object-var-length obj))
 	(size (primitive-object-size obj)))
     (cond
      ((not lowtag))