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