From: Thiemo S. <th...@us...> - 2005-12-04 23:07:24
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4185/tests Modified Files: clos.impure.lisp Log Message: 0.9.7.14: Stray whitespace. Index: clos.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v retrieving revision 1.74 retrieving revision 1.75 diff -u -d -r1.74 -r1.75 --- clos.impure.lisp 2 Dec 2005 14:30:13 -0000 1.74 +++ clos.impure.lisp 4 Dec 2005 23:07:13 -0000 1.75 @@ -896,7 +896,7 @@ ;;; Siivola. Not all methods for accessing slots are created equal... (defclass yet-another-obsoletion-super () ((obs :accessor obs-of :initform 0))) (defclass yet-another-obsoletion-sub (yet-another-obsoletion-super) ()) -(defmethod shared-initialize :after ((i yet-another-obsoletion-super) +(defmethod shared-initialize :after ((i yet-another-obsoletion-super) slots &rest init) (incf (obs-of i))) |