[armedbear] #453: Compiler failure with stack inconsistency

[armedbear]

#453: Compiler failure with stack inconsistency
----------------------+------------------------
 Reporter:  mevenson  |           Owner:
     Type:  defect    |          Status:  new
 Priority:  major     |       Milestone:  1.6.0
Component:  compiler  |         Version:
 Keywords:            |  Parent Tickets:
----------------------+------------------------
 Paul Dietz reports in <https://mailman.common-lisp.net/pipermail
 /armedbear-devel/2017-October/003884.html>
 {{{
 (defparameter *abcl1*
   '(lambda (a)
     (declare (optimize (debug 0) (compilation-speed 1)
               (speed 2) (space 3) (safety 1)))
     (ash 0
      (bit #*0100
       (catch 'ct7 a)))))

 (defun test1 ()
   (let ((fn (compile nil *abcl1*)))
     (mapcar fn '(0 1 2 3))))

 (test1) ==>

 ; Caught ERROR:
 ;   Stack inconsistency detected in <unknown> at index 40: found 2,
 expected 0.
 }}}

 c.f. <https://github.com/armedbear/abcl/issues/69>

--
Ticket URL: <http://abcl.org/trac/ticket/453>
armedbear <http://abcl.org>
armedbear