From c7090fd0a2751856b65a803de8b1cac34f74617b Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 1 Dec 2004 00:25:31 +0000 Subject: [PATCH] Fixed another pruner bug --- ansi-tests/random-int-form.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp index d3f76781..50e3178c 100644 --- a/ansi-tests/random-int-form.lsp +++ b/ansi-tests/random-int-form.lsp @@ -2151,7 +2151,7 @@ #'(lambda (form) (and (consp form) (or - (and (member (car form) '(setq setf shiftf) :test #'eq) + (and (member (car form) '(setq setf shiftf incf decf) :test #'eq) (eq (cadr form) var)) (and (eql (car form) 'multiple-value-setq) (member var (cadr form)))))) -- GitLab