armedbear-ticket

Download

armedbear-ticket@common-lisp.net

October 2017

1 participants
12 discussions

[armedbear] #454: Compile problems with TAGBODY
by armedbear 04 Oct '17

04 Oct '17

#454: Compile problems with TAGBODY ----------------------+------------------------ Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.6.0 Component: compiler | Version: Keywords: | Parent Tickets: ----------------------+------------------------ {{{ (compile nil '(lambda () (tagbody (catch 'c 100)))) ==> COMPILE-TAGBODY: tag not found: 100 [Condition of type SIMPLE-ERROR] }}} c.f. <https://github.com/armedbear/abcl/issues/70> -- Ticket URL: <http://abcl.org/trac/ticket/454> armedbear <http://abcl.org> armedbear

1 0

[armedbear] #453: Compiler failure with stack inconsistency
by armedbear 04 Oct '17

04 Oct '17

#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

1 0