[Sbcl-commits] CVS: sbcl/tests bug-414.lisp, NONE, 1.1 debug.impure.lisp, 1.41, 1.42

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12898/tests

Modified Files:
	debug.impure.lisp 
Added Files:
	bug-414.lisp 
Log Message:
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.



--- NEW FILE: bug-414.lisp ---
;;; 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: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- debug.impure.lisp	15 Jan 2008 18:10:46 -0000	1.41
+++ debug.impure.lisp	15 Jan 2008 23:55:51 -0000	1.42
@@ -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)