0.pre7.91:

	merged Nathan Froyd port of CMU CL FMAKUNBOUND fix
		(sbcl-devel 2001-12-18)

diff --git a/BUGS b/BUGS
index cce7d24..e558430 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1335,6 +1335,14 @@ Error in function C::GET-LAMBDA-TO-COMPILE:
   forever, even when it is uninterned and all other references to it
   are lost. 
 
+136:
+  (reported by Arnaud Rouanet on cmucl-imp 2001-12-18)
+    (defmethod foo ((x integer))
+      x)
+    (defmethod foo :around ((x integer))
+      (let ((x (1+ x)))
+        (call-next-method)))
+  Now (FOO 3) should return 3, but instead it returns 4.
     
 KNOWN BUGS RELATED TO THE IR1 INTERPRETER
 

diff --git a/src/code/fdefinition.lisp b/src/code/fdefinition.lisp
index c783672..364e7e9 100644 (file)
--- a/src/code/fdefinition.lisp
+++ b/src/code/fdefinition.lisp
@@ -273,4 +273,5 @@
   (let ((fdefn (fdefinition-object name nil)))
     (when fdefn
       (fdefn-makunbound fdefn)))
+  (sb!kernel:undefine-fun-name name)
   name)

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index ff7298f..b12a743 100644 (file)
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -564,6 +564,10 @@
 ;;; BITS must be evenly divisible by eight.
 (defun write-packed-bit-vector (bits byte-buffer)
   (declare (type simple-bit-vector bits) (type byte-buffer byte-buffer))
+
+  ;; Enforce constraint from CMU-CL-era comment.
+  (aver (zerop (mod (length bits) 8)))
+
   (multiple-value-bind (initial step done)
       (ecase *backend-byte-order*
        (:little-endian (values 0  1  8))

diff --git a/version.lisp-expr b/version.lisp-expr
index 2561f88..02f4b9e 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; for internal versions, especially for internal versions off the
 ;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.pre7.90"
+"0.pre7.91"