1.0.13.44: bug #414 has disappeared
authorNikodemus Siivola <nikodemus@random-state.net>
Tue, 15 Jan 2008 23:55:51 +0000 (15 23:55 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Tue, 15 Jan 2008 23:55:51 +0000 (15 23:55 +0000)
 * Most likely due to changes in debug instrumentation. :/
   Add to regression suite, in case it comes back.

BUGS
tests/bug-414.lisp [new file with mode: 0644]
tests/debug.impure.lisp
version.lisp-expr

diff --git a/BUGS b/BUGS
index b22778b..503fdc4 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -1800,19 +1800,6 @@ WORKAROUND:
 
   Reported by Faré Rideau on sbcl-devel.
 
-414: strange DISASSEMBLE warning
-
-  Compiling and disassembling 
-
-   (defun disassemble-source-form-bug (x y z)
-     (declare (optimize debug))
-     (list x y z))
-
-  Gives
-
-   WARNING: bogus form-number in form!  The source file has probably 
-   been changed too much to cope with.
-
 415: Issues creating large arrays on x86-64/Linux and x86/Darwin
 
    (make-array (1- array-dimension-limit))
diff --git a/tests/bug-414.lisp b/tests/bug-414.lisp
new file mode 100644 (file)
index 0000000..2f2ac60
--- /dev/null
@@ -0,0 +1,9 @@
+;;; compiling and disassembling this used to give
+;;;
+;;;    WARNING: bogus form-number in form!  The source file has probably 
+;;;    been changed too much to cope with.
+;;;
+;;; but the symptoms have disappeared.
+(defun bug-414 (x y z)
+  (declare (optimize debug))
+  (list x y z))
index 7be8b14..c01a5a5 100644 (file)
     (assert (search "returned 1" out))
     (assert (search "returned 120" out))))
 
+(with-test (:name :bug-414)
+  (handler-bind ((warning #'error))
+    (load (compile-file "bug-414.lisp"))
+    (disassemble 'bug-414)))
+
 ;;;; test infinite error protection
 
 (defmacro nest-errors (n-levels error-form)
index 21bbaac..fe27a51 100644 (file)
@@ -17,4 +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".)
-"1.0.13.43"
+"1.0.13.44"