In VALUES-TYPE-TO-N-TYPES the number of requested types may be zero (i.e....

In VALUES-TYPE-TO-N-TYPES the number of requested types may be zero (i.e. multiple-value-bind with zero arguments)
parent 1dadff58
......@@ -140,7 +140,8 @@
(defun-equal-cached values-type-to-n-types (type length)
(if (or (atom type) (not (eql (first type) 'values)))
(list* type (make-list (1- length) :initial-element 'NULL))
(and (plusp length)
(list* type (make-list (1- length) :initial-element 'NULL)))
(do* ((l (rest type))
(output '())
(n length (1- n)))
......
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