From 3164c0c6b79462680ebe92ccbe669a21faba7bc6 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Thu, 9 Oct 2003 00:57:05 +0000 Subject: [PATCH] Added UNWIND-PROTECT, PROG1, MULTIPLE-VALUE-PROG1 to tester. Uncommented ASH generator. --- ansi-tests/random-int-form.lsp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index 2a24dacd..9fa99b02 100644 --- a/ansi-tests/random-int-form.lsp +++ b/ansi-tests/random-int-form.lsp @@ -138,15 +138,17 @@ (40 (let ((op (random-from-seq '(- abs signum 1+ 1- identity progn floor ceiling truncate round realpart imagpart - integer-length logcount values)))) + integer-length logcount values multiple-value-prog1 + prog1 unwind-protect)))) `(,op ,(make-random-integer-form (1- size))))) (2 `(isqrt (abs ,(make-random-integer-form (- size 2))))) -#| (3 + + (2 (destructuring-bind (s1 s2) (random-partition (- size 2) 2) `(ash ,(make-random-integer-form s1) (min ,(random 100) - ,(make-random-integer-form s2))))) |# + ,(make-random-integer-form s2))))) ;; binary floor, ceiling, truncate, round (4 @@ -161,7 +163,7 @@ ,(make-random-integer-form s2)))))) ;; Binary op - (80 + (60 (let* ((op (random-from-seq '(+ - * * logand min max min max ;; gcd lcm ;; #-:allegro @@ -572,7 +574,7 @@ (try -1) (prune-fn form try-fn)) - ((abs 1+ 1- identity values progn) + ((abs 1+ 1- identity values progn prog1 multiple-value-prog1 unwind-protect) (mapc #'try args) (prune-fn form try-fn)) -- GitLab