Commit e854098a authored by pfdietz's avatar pfdietz

Fixed bug in pruner

parent 798e4213
......@@ -1793,7 +1793,7 @@
#'(lambda (form)
(and (consp form)
(or
(and (member (car form) '(setq setf) :test #'eq)
(and (member (car form) '(setq setf shiftf) :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