From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 15 Jan 2008 23:55:51 +0000 (+0000)
Subject: 1.0.13.44: bug #414 has disappeared
X-Git-Url: https://repo.or.cz/w/sbcl/simd.git/commitdiff_plain/3ca67be9529e3f2800facea80903062af79f870f

1.0.13.44: bug #414 has disappeared

 * Most likely due to changes in debug instrumentation. :/
   Add to regression suite, in case it comes back.
---

diff --git a/BUGS b/BUGS
index b22778bf6..503fdc4e4 100644
--- 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
index 000000000..2f2ac6013
--- /dev/null
+++ b/tests/bug-414.lisp
@@ -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))
diff --git a/tests/debug.impure.lisp b/tests/debug.impure.lisp
index 7be8b14a5..c01a5a51a 100644
--- a/tests/debug.impure.lisp
+++ b/tests/debug.impure.lisp
@@ -400,6 +400,11 @@
     (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)
diff --git a/version.lisp-expr b/version.lisp-expr
index 21bbaac68..fe27a51a6 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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"