Commit 3331fe90 authored by pfdietz's avatar pfdietz

Got rid of potential problem with LIST being called with >= CALL-ARGUMENTS-LIMIT args.

parent 48f51b0f
......@@ -235,6 +235,15 @@ the condition to go uncaught if it cannot be classified."
(rotatef (elt seq r) (elt seq (1- i))))))
(defun make-list-expr (args)
"Build an expression for computing (LIST . args), but that evades
(if (cddddr args)
(list 'list*
(first args) (second args) (third args) (fourth args)
(make-list-expr (cddddr args)))
(cons 'list args)))
(defparameter +standard-chars+
......@@ -101,8 +101,9 @@
`(let ,vars
(and (eql (multiple-value-setq ,vars (values-list (quote ,result)))
,(car result))
(equal (list ,@vars) (quote ,result)))))
(equal ,(make-list-expr vars)
(quote ,result)))))
unless (eval form)
collect (list i form)))
\ No newline at end of file
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