[movitz-cvs] CVS update: movitz/losp/muerte/lists.lisp

[Frode Vatvedt Fjeld]

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 `(, at temps ,indicator-var ,@(if default (list def-temp)))
+      (values `(, at temps ,indicator-var ,@(if default (list default-var)))
 	      `(, at values ,indicator ,@(if default (list default)))
 	      `(,new-value)
 	      `(let ((,(car stores) (putf ,getter ,indicator-var ,new-value)))