X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fbyte-comp.lisp;h=63e9885a58a9b11c75f456f4a788126486ec0bf8;hb=0dcc957ae6bf24809fda82fd59c134e70058c42a;hp=0fe11fc20224152cb719325b346ffe77d575063c;hpb=ac955573b3c4115511244304047add6158430395;p=sbcl.git

diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp
index 0fe11fc..63e9885 100644
--- a/src/compiler/byte-comp.lisp
+++ b/src/compiler/byte-comp.lisp
@@ -1211,7 +1211,8 @@
 	    (output-push-fdefinition
 	     segment
 	     (if (and found
-		      (= (length (combination-args (continuation-dest cont)))
+		      (= (length (basic-combination-args
+				  (continuation-dest cont)))
 			 2))
 		 found
 		 name))))