failed AVER: (SB-C::LAMBDA-TOPLEVELISH-P (SB-C::LAMBDA-HOME SB-C::FUN))

Bug #1863003 reported by Paul F. Dietz on 2020-02-12
6
This bug affects 1 person
Affects Status Importance Assigned to Milestone
SBCL
Undecided
Unassigned

Bug Description

(lambda ()
   (dotimes (iv2 1)
     (dotimes (iv1 0)
       (labels ((%f (&key)
                  (labels ((%g
                               (x
                                &optional
                                (z
                                 (return-from %f
                                   (let ((*s*
                                          (cons
                                           (dotimes (iv3 0 3225))
                                           iv1)))
                                     (declare (special *s*))
                                     (return-from %f (car *s1*)))))
                                &key (k iv2))
                             x)))))))))

==>

failed AVER:
    (SB-C::LAMBDA-TOPLEVELISH-P (SB-C::LAMBDA-HOME SB-C::FUN))
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at <http://sbcl.sourceforge.net/>.
   [Condition of type SB-INT:BUG]

Restarts:
 0: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;IR1OPT.LISP") #<SB-C::REF :%SOURCE-NAME IV1 :LEAF #<SB-C::LAMBDA-VAR :%SOURCE-NAME IV1 :TYPE #<SB-KERNEL:NUMERIC-TYPE (INTEGER 0 0)> :WHERE-FROM :DECLARED {1006B..
  1: (SB-C::SUBSTITUTE-LEAF-IF #<CLOSURE (FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;IR1OPT.LISP") {7F6B9E33F26B}> #<SB-KERNEL:CONSTANT :VALUE 0 {1006B71C23}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME IV1 :TYPE #<SB-KERN..
  2: ((LAMBDA (SB-C::ARG SB-C::VAR TYPE) :IN SB-C::PROPAGATE-LET-ARGS) #<SB-C::LVAR 1 {1006B9F7B3}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME IV1 :TYPE #<SB-KERNEL:NUMERIC-TYPE (INTEGER 0 0)> :WHERE-FROM :DECLARED ..
  3: (SB-C::MAP-COMBINATION-ARG-VAR #<CLOSURE (LAMBDA (SB-C::ARG SB-C::VAR TYPE) :IN SB-C::PROPAGATE-LET-ARGS) {1006BAAF2B}> #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::..
  4: (SB-C::PROPAGATE-LET-ARGS #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME # :KIND :LET :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)..
  5: (SB-C::IR1-OPTIMIZE-COMBINATION #<SB-C::COMBINATION :FUN #<SB-C::REF :LEAF #<SB-C::CLAMBDA :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME # :KIND :LET :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read..
  6: (SB-C::IR1-OPTIMIZE-BLOCK #<SB-C::CBLOCK 19 :START c2 {1006B65603}>)
  7: (SB-C::IR1-OPTIMIZE #<SB-C:COMPONENT :NAME (LABELS %G :IN %F) :REANALYZE T {1006BA39B3}> NIL)
  8: (SB-C::IR1-OPTIMIZE-UNTIL-DONE #<SB-C:COMPONENT :NAME (LABELS %G :IN %F) :REANALYZE T {1006BA39B3}>)
  9: (SB-C::IR1-OPTIMIZE-PHASE-1 #<SB-C:COMPONENT :NAME (LABELS %G :IN %F) :REANALYZE T {1006BA39B3}>)
 10: (SB-C::IR1-PHASES #<SB-C:COMPONENT :NAME (LABELS %G :IN %F) :REANALYZE T {1006BA39B3}>)
 11: (SB-C::COMPILE-COMPONENT #<SB-C:COMPONENT :NAME (LABELS %G :IN %F) :REANALYZE T {1006BA39B3}>)

Stas Boukarev (stassats) on 2020-02-12
Changed in sbcl:
status: New → Fix Committed
To post a comment you must log in.
This report contains Public information  Edit
Everyone can see this information.

Other bug subscribers