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 @@ ...@@ -140,7 +140,8 @@
(defun-equal-cached values-type-to-n-types (type length) (defun-equal-cached values-type-to-n-types (type length)
(if (or (atom type) (not (eql (first type) 'values))) (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)) (do* ((l (rest type))
(output '()) (output '())
(n length (1- n))) (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