0.7.8.36:

[sbcl.git] / src / compiler / ir1opt.lisp

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 3287929..2dcfc4d 100644 (file)
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -485,6 +485,9 @@
                           (if (policy node (= safety 3))
                               (and (ir1-attributep attr flushable)
                                    (every (lambda (arg)
+                                            ;; FIXME: when bug 203
+                                            ;; will be fixed, remove
+                                            ;; this check
                                             (member (continuation-type-check arg)
                                                     '(nil :deleted)))
                                           (basic-combination-args node))