mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 12:03:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

The optimizer for RPLACA/D returned not the cons, but the value.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-18 16:40:30 +02:00
parent 6d82235b1b
commit 7a7c8ff586
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpopt-cons.lsp
View file

@ -52,8 +52,8 @@
(define-simple-optimizer rplaca ((c cons) value)
(:object :object) :object
"ECL_CONS_CAR(#0)=#1" :one-liner t)
"@0;(ECL_CONS_CAR(#0)=#1,#0)" :one-liner t)
(define-simple-optimizer rplacd ((c cons) value)
(:object :object) :object
"ECL_CONS_CDR(#0)=#1" :one-liner t)
"@0;(ECL_CONS_CDR(#0)=#1,#0)" :one-liner t)