0.pre7.34:

[sbcl.git] / src / compiler / byte-comp.lisp

diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp
index 0fe11fc..63e9885 100644 (file)
--- 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))))