X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=4f59a8784fcd74f4bc9fb9239d5d409d861c4c34;hb=df679ed627975948b1cee190f4d79c397588c43e;hp=ae4ad080dba81e34272ceb09d17fe891dd6178ad;hpb=f294da03824843f07d781e655d5a5e70c2c4851e;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index ae4ad08..4f59a87 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -637,7 +637,7 @@
       (collect ((call-args))
 	(do ((var arglist (cdr var))
 	     (temp temps (cdr temp)))
-	    (())
+	    ((null var))
 	  (let ((info (lambda-var-arg-info (car var))))
 	    (if info
 		(ecase (arg-info-kind info)