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

[Frode Vatvedt Fjeld]

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 at 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*)