X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ffun-info-funs.lisp;h=6c7c63d1bf41ef2af1f88b6fb0e1c0326f5994c2;hb=c0595e94aab165f59454a3a97f06a8bdc22f5bd3;hp=bf996e1738339556c9db4b46758259338ac56c66;hpb=c53ec09694206092fd3aa933adade5e5d5b343d2;p=sbcl.git

diff --git a/src/compiler/fun-info-funs.lisp b/src/compiler/fun-info-funs.lisp
index bf996e1..6c7c63d 100644
--- a/src/compiler/fun-info-funs.lisp
+++ b/src/compiler/fun-info-funs.lisp
@@ -23,10 +23,10 @@
 		(ir2-convert-setter node block name offset lowtag)))))
   name)
 
-(defun %def-alloc (name words var-length header lowtag inits)
+(defun %def-alloc (name words variable-length-p header lowtag inits)
   (let ((info (fun-info-or-lose name)))
     (setf (fun-info-ir2-convert info)
-	  (if var-length
+	  (if variable-length-p
 	      (lambda (node block)
 		(ir2-convert-variable-allocation node block name words header
 						 lowtag inits))