[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv13777

Modified Files:
	special-operators.lisp 
Log Message:
Tweak assembly-macro :lexical-store.


--- /project/movitz/cvsroot/movitz/special-operators.lisp	2008/04/12 16:23:26	1.58
+++ /project/movitz/cvsroot/movitz/special-operators.lisp	2008/04/17 19:28:37	1.59
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.58 2008/04/12 16:23:26 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.59 2008/04/17 19:28:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -564,9 +564,11 @@
 			     nil))
 		       (setf (assembly-macro-expander :lexical-store amenv)
 			 (lambda (expr)
-			   (destructuring-bind (var reg &key (type t))
+			   (destructuring-bind (var reg &key (type t) protect-registers)
 			       (cdr expr)
-			     `((:store-lexical ,(movitz-binding var env) ,reg :type ,type)))))
+			     `((:store-lexical ,(movitz-binding var env) ,reg
+					       :type ,type
+					       :protect-registers ,protect-registers)))))
 		       (setf (assembly-macro-expander :lexical-binding amenv)
 			 (lambda (expr)
 			   (destructuring-bind (var)