Commit c7090fd0 authored by pfdietz's avatar pfdietz

Fixed another pruner bug

parent ffe5eec5
......@@ -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))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment