Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv19047

Modified Files: los-closette.lisp Log Message: Fixed cut'n'paste-bug that caused specializing (setf slot-value-using-class) not to work.

Date: Sun Aug 14 20:50:13 2005 Author: ffjeld

Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.33 movitz/losp/muerte/los-closette.lisp:1.34 --- movitz/losp/muerte/los-closette.lisp:1.33 Fri May 6 17:39:44 2005 +++ movitz/losp/muerte/los-closette.lisp Sun Aug 14 20:50:12 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.33 2005/05/06 15:39:44 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.34 2005/08/14 18:50:12 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1554,7 +1554,7 @@ (or (not *standard-setf-slot-value-using-class*) ; still bootstrapping.. (not (let ((value (car args)) (object (cadr args))) - (gf-nonstandard-specialized-p #'slot-value-using-class + (gf-nonstandard-specialized-p #'(setf slot-value-using-class) (if (typep object 'funcallable-standard-class) *standard-gf-setf-slot-value-using-class* *standard-setf-slot-value-using-class*)