From cd71fa005a6168cf9c79eca38459210bdd9a6c4b Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Wed, 19 Dec 2001 15:24:47 +0000 Subject: [PATCH] 0.pre7.91: merged Nathan Froyd port of CMU CL FMAKUNBOUND fix (sbcl-devel 2001-12-18) --- BUGS | 8 ++++++++ src/code/fdefinition.lisp | 1 + src/compiler/debug-dump.lisp | 4 ++++ version.lisp-expr | 2 +- 4 files changed, 14 insertions(+), 1 deletion(-) diff --git a/BUGS b/BUGS index cce7d24..e558430 100644 --- 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 --- 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 --- 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 --- 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" -- 1.7.10.4