From ac9f4985a3730604dd76e0c3e1753ce2b09666ee Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 4 Jun 2004 13:52:12 +0000 Subject: [PATCH] 0.8.10.82: Another, really-a-bug variant of #328. Reported by Tony Martinez. --- BUGS | 20 ++++++++++++++++++++ version.lisp-expr | 3 +-- 2 files changed, 21 insertions(+), 2 deletions(-) diff --git a/BUGS b/BUGS index dff6252..f75671b 100644 --- a/BUGS +++ b/BUGS @@ -1507,3 +1507,23 @@ WORKAROUND: imaginary part is the real part of the correct answer. (fixes for both of these were sent CSR sbcl-devel 2004-06-02, to be merged post-0.8.11) + +336: "slot-definitions must retain the generic functions of accessors" + reported by Tony Martinez: + (defclass foo () ((bar :reader foo-bar))) + (defun foo-bar (x) x) + (defclass foo () ((bar :reader get-bar))) ; => error, should work + + Note: just punting the accessor removal if the fdefinition + is not a generic function is not enough: + + (defclass foo () ((bar :reader foo-bar))) + (defvar *reader* #'foo-bar) + (defun foo-bar (x) x) + (defclass foo () ((bar :initform 'ok :reader get-bar))) + (funcall *reader* (make-instance 'foo)) ; should be an error, since + ; the method must be removed + ; by the class redefinition + + Fixing this should also fix a subset of #328 -- update the + description with a new test-case then. diff --git a/version.lisp-expr b/version.lisp-expr index 29f6bf5..c547f1d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,5 +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.8.10.81" - +"0.8.10.82" -- 1.7.10.4