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

Modified Files: special-operators.lisp Log Message: don't use keyword properties for CL symbols.

--- /project/movitz/cvsroot/movitz/special-operators.lisp 2006/04/10 11:47:14 1.55 +++ /project/movitz/cvsroot/movitz/special-operators.lisp 2007/02/26 18:25:21 1.56 @@ -8,7 +8,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 24 16:22:59 2000 ;;;; -;;;; $Id: special-operators.lisp,v 1.55 2006/04/10 11:47:14 ffjeld Exp $ +;;;; $Id: special-operators.lisp,v 1.56 2007/02/26 18:25:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -328,7 +328,7 @@ (multiple-value-bind (cl-body declarations doc-string) (parse-docstring-declarations-and-body cl-macro-body 'cl:declare) (declare (ignore doc-string)) - (setf (movitz-env-get access-fn :setf-expander nil) + (setf (movitz-env-get access-fn 'muerte::setf-expander nil) (let* ((form-formal (or wholevar (gensym))) (env-formal (or envvar (gensym))) (expander (if (null cl-lambda-list)