mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-05 00:40:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Some declarations in sysfun.lsp have return type *. Interpret this as (VALUES &REST).

Browse source
This commit is contained in:
jgarcia 2006-05-06 08:20:42 +00:00
parent 95f3350273
commit fd49f0fdbc
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmulti.lsp
View file

@ -157,7 +157,7 @@
(defun c1form-values-number (form)
(let ((type (c1form-type form)))
(cond ((eq type 'T)
(cond ((or (eq type 'T) (eq type '*))
(values 0 MULTIPLE-VALUES-LIMIT))
((or (atom type) (not (eq (first type) 'VALUES)))
(values 1 1))