From 7a7c8ff5868b00e0bc74c1df7d72e800848b6857 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 18 May 2010 16:40:30 +0200 Subject: [PATCH] The optimizer for RPLACA/D returned not the cons, but the value. --- src/cmp/cmpopt-cons.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpopt-cons.lsp b/src/cmp/cmpopt-cons.lsp index 0ca2c2d2a..acbc5a2b8 100644 --- a/src/cmp/cmpopt-cons.lsp +++ b/src/cmp/cmpopt-cons.lsp @@ -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)