[Sbcl-commits] CVS: sbcl BUGS,1.230,1.231 version.lisp-expr,1.642,1.643

[William H. N. <wn...@us...>]

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"