#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