mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-24 10:30:51 -07:00
Code Issues Projects Releases Packages Wiki Activity

VALUES-NUMBER-FROM-TYPE did not compute the right number for types with &optional.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-07-08 23:37:23 +02:00
parent 5d2dcedfe6
commit 03f8e19495
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmptype-arith.lsp
View file

@ -120,7 +120,7 @@
(values 0 MULTIPLE-VALUES-LIMIT))
((or (atom type) (not (eq (first type) 'VALUES)))
(values 1 1))
((or (member '&rest type) (member 'optional type))
((or (member '&rest type) (member '&optional type))
(values 0 MULTIPLE-VALUES-LIMIT))
(t
(let ((l (1- (length type))))