Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv29209
Modified Files: compiler.lisp Log Message: Fixed bug in :cons-get expander.
Date: Sat Nov 20 00:56:15 2004 Author: ffjeld
Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.111 movitz/compiler.lisp:1.112 --- movitz/compiler.lisp:1.111 Sat Nov 20 00:06:58 2004 +++ movitz/compiler.lisp Sat Nov 20 00:56:14 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.111 2004/11/19 23:06:58 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.112 2004/11/19 23:56:14 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -6234,13 +6234,13 @@ (let* ((binding (binding-target (ensure-local-binding (binding-target cell) funobj))) (location (new-binding-location (binding-target binding) frame-map)) (binding-is-list-p (binding-store-subtypep binding 'list))) -;;; (warn "car of loc ~A bind ~A" -;;; location binding) + #+ignore (warn "car of loc ~A bind ~A" + location binding) (cond ((and binding-is-list-p (member location '(:eax :ebx :ecx :edx))) - `(,*compiler-nonlocal-lispval-read-segment-prefix* - (:movl (,location ,op-offset) ,dst))) + `((,*compiler-nonlocal-lispval-read-segment-prefix* + :movl (,location ,op-offset) ,dst))) (binding-is-list-p `(,@(make-load-lexical binding dst funobj nil frame-map) (,*compiler-nonlocal-lispval-read-segment-prefix*