[Sbcl-commits] CVS: sbcl/src/pcl std-class.lisp,1.55,1.56

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29922/src/pcl

Modified Files:
	std-class.lisp 
Log Message:
0.8.8.26:
	Merge patches from NJF (sbcl-devel 2003-03-11)
	... more #!-SB-DOC
	... fewer :TEST-NOT
	... less OAOOM
	Explain what's happening around MAYBE-FP-WAIT (thanks to
		Nikodemus Siivola sbcl-devel)
	Patch threads.impure.lisp to allow writing the C file (Nikodemus
		Siivola sbcl-devel 2004-02-27)
	Fix for foreign double access on Darwin (CSR sbcl-devel 2004-02-23)


Index: std-class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/std-class.lisp,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- std-class.lisp	18 Oct 2003 10:14:52 -0000	1.55
+++ std-class.lisp	15 Mar 2004 15:55:22 -0000	1.56
@@ -498,7 +498,7 @@
 			dupes)))
     (let* ((slot (car slots))
 	   (oslots (remove (slot-definition-name slot) (cdr slots)
-			   :test-not #'string= :key #'slot-definition-name)))
+			   :test #'string/= :key #'slot-definition-name)))
       (when oslots
 	(pushnew (cons (slot-definition-name slot)
 		       (mapcar #'slot-definition-name oslots))