0.6.11.23:

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

diff --git a/src/compiler/eval-comp.lisp b/src/compiler/eval-comp.lisp
index 7e7fa0f..825d2d0 100644 (file)
--- a/src/compiler/eval-comp.lisp
+++ b/src/compiler/eval-comp.lisp
@@ -177,12 +177,12 @@
                    ((and leaf (typep leaf 'clambda)
                          (member (functional-kind leaf)
                                  non-closed-function-kinds))
-                    (assert (not (eq (functional-kind leaf) :escape)))
+                    (aver (not (eq (functional-kind leaf) :escape)))
                     :unused)
                    (t
                     (typecase dest
-                      ;; Change locations in eval.lisp that think :RETURN
-                      ;; could occur.
+                      ;; Change locations in eval.lisp that think
+                      ;; :RETURN could occur.
                       ((or mv-combination creturn exit) :multiple)
                       (null :unused)
                       (t :single))))))))