From 3950a6af39594f65f17cea31f02b46d31dd5b26b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 10 Aug 2005 01:30:23 +0000 Subject: [PATCH] Simplify misc.613 --- ansi-tests/misc.lsp | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index efb4433b..a0295d1b 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -10898,16 +10898,11 @@ Broken at C::WT-MAKE-CLOSURE. (compile nil '(lambda (a) - (declare (type (integer -20326914 13338097) a)) - (declare (ignorable a)) (declare (optimize (space 3) (safety 1) (debug 3) (speed 1) (compilation-speed 3))) - (let* ((*s7* (catch 'ct1 - (reduce #'(lambda (lmv6 lmv5) - (throw 'ct1 0)) - (list a 0 0) :end 2)))) - (declare (special *s7*)) - 0))) + (catch 'ct1 + (reduce #'(lambda (lmv6 lmv5) (throw 'ct1 0)) + (list a 0 0) :end 2)))) 1) 0) -- GitLab