[Sbcl-commits] CVS: sbcl BUGS,1.398,1.399 version.lisp-expr,1.1650,1.1651

[Nikodemus S. <de...@us...>]

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

Modified Files:
	BUGS version.lisp-expr 
Log Message:
0.8.10.82:
        Another, really-a-bug variant of #328. Reported by Tony Martinez.


Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.398
retrieving revision 1.399
diff -u -d -r1.398 -r1.399
--- BUGS	3 Jun 2004 09:35:37 -0000	1.398
+++ BUGS	4 Jun 2004 13:52:12 -0000	1.399
@@ -1507,3 +1507,23 @@
     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.

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.1650
retrieving revision 1.1651
diff -u -d -r1.1650 -r1.1651
--- version.lisp-expr	4 Jun 2004 13:37:48 -0000	1.1650
+++ version.lisp-expr	4 Jun 2004 13:52:12 -0000	1.1651
@@ -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"