From 9d4c9a863349b4606ad7fdf9e7544e80d634b40f Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 29 May 2004 11:11:55 +0000 Subject: [PATCH] Two more test cases for abcl --- ansi-tests/misc.lsp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 6a3f12f6..7778af97 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -7194,3 +7194,29 @@ Broken at C::WT-C-INLINE-LOC. 0))) 10) 0) + +(deftest misc.378 + (funcall + (compile + nil + '(lambda (c) + (declare (optimize (speed 1) (space 0) (safety 1) (debug 3) + (compilation-speed 2))) + (dotimes (iv4 3 0) + (restart-case (round (multiple-value-bind (*s6*) (cons c 0) + (car *s6*))))))) + 1) + 0) + +(deftest misc.379 + (funcall + (compile + nil + '(lambda () + (declare (optimize (speed 2) (space 0) (safety 2) (debug 2) + (compilation-speed 1))) + (values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3)))))) + 0 0) + + + -- GitLab