Commit 2ef47e5f authored by pfdietz's avatar pfdietz

Improve pruning of make-array forms

parent 1fa73a7e
......@@ -1211,7 +1211,10 @@
(eq (cadr args) ':initial-element)
; (null (cdddr args))
)
(prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args)))))))
(prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args)))))
(when (cdddr args)
(try `(make-array nil :initial-element ,(caddr args))))
))
((cons)
(prune-fn form try-fn))
......
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