diff --git a/tests/clos.impure.lisp b/tests/clos.impure.lisp index 54931c9a6..100407d0b 100644 --- a/tests/clos.impure.lisp +++ b/tests/clos.impure.lisp @@ -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))) diff --git a/version.lisp-expr b/version.lisp-expr index 7312551b8..697792e3e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.7.13" +"0.9.7.14"