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

[armedbear]

#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