Update of /cvsroot/sbcl/sbcl
In directory usw-pr-cvs1:/tmp/cvs-serv8604
Modified Files:
BUGS version.lisp-expr
Log Message:
0.7.9.34:
merged emu LOOP.1.27 patch (sbcl-devel 2002-11-01)
added DOWNTO line analogous to emu's ABOVE line, as per CSR
added another bug report
Index: BUGS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/BUGS,v
retrieving revision 1.230
retrieving revision 1.231
diff -u -d -r1.230 -r1.231
--- BUGS 6 Nov 2002 09:59:28 -0000 1.230
+++ BUGS 7 Nov 2002 12:53:37 -0000 1.231
@@ -1288,6 +1288,30 @@
debugger invoked on condition of type UNBOUND-VARIABLE:
The variable X is unbound.
+223: "(SETF FDEFINITION) and #' semantics broken for wrappers"
+ Although this
+ (defun foo (x)
+ (print x))
+ (defun traced (fn)
+ (lambda (&rest rest)
+ (format t "~&about to call ~S on ~S~%" fn rest)
+ (apply fn rest)
+ (format t "~&returned from ~S~%" fn)))
+ (setf (fdefinition 'foo)
+ (traced #'foo))
+ (foo 11)
+ does what one would expect, this
+ (defun bar (x)
+ (print x))
+ (let ((bar0 #'bar))
+ (setf (fdefinition 'bar)
+ (lambda (&rest rest)
+ (format t "~&about to enter BAR ~S~%" rest)
+ (apply bar0 rest)
+ (format t "~&back from BAR~%"))))
+ (bar 12)
+ recurses endlessly in sbcl-0.7.9.32. (Or it works if #' and
+ FDEFINITION are replaced by SYMBOL-FUNCTION.)
DEFUNCT CATEGORIES OF BUGS
IR1-#:
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.642
retrieving revision 1.643
diff -u -d -r1.642 -r1.643
--- version.lisp-expr 6 Nov 2002 09:59:28 -0000 1.642
+++ version.lisp-expr 7 Nov 2002 12:53:38 -0000 1.643
@@ -18,4 +18,4 @@
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.7.9.33"
+"0.7.9.34"
|