From: Christophe R. <cr...@us...> - 2004-03-15 16:04:31
|
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)) |