Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv32056
Modified Files: lists.lisp Log Message: Fixed typo in (setf getf).
Date: Tue Feb 3 04:57:49 2004 Author: ffjeld
Index: movitz/losp/muerte/lists.lisp diff -u movitz/losp/muerte/lists.lisp:1.2 movitz/losp/muerte/lists.lisp:1.3 --- movitz/losp/muerte/lists.lisp:1.2 Mon Jan 19 06:23:46 2004 +++ movitz/losp/muerte/lists.lisp Tue Feb 3 04:57:49 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.2 2004/01/19 11:23:46 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.3 2004/02/03 09:57:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -269,7 +269,7 @@ (let ((new-value (gensym)) (indicator-var (gensym)) (default-var (if default (gensym)))) - (values `(,@temps ,indicator-var ,@(if default (list def-temp))) + (values `(,@temps ,indicator-var ,@(if default (list default-var))) `(,@values ,indicator ,@(if default (list default))) `(,new-value) `(let ((,(car stores) (putf ,getter ,indicator-var ,new-value)))