[armedbear] #455: Order of evaluation in expression with BOOLE in compiled code

#455: Order of evaluation in expression with BOOLE in compiled code ----------------------+---------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: Component: (A)MOP | Version: Keywords: | Parent Tickets: ----------------------+---------------------- {{{ (eval '(let ((a 15)) (boole boole-2 (logior 0 (setf a 14)) a))) ==> 14

(eval (funcall (compile nil '(lambda () (let ((a 15)) (boole boole-2 (logior 0 (setf a 14)) a)))))) ==> 15 }}}

-- Ticket URL: http://abcl.org/trac/ticket/455 armedbear http://abcl.org armedbear