mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

The compiler now uses THE forms with a VALUES type.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 11:08:09 +01:00
parent ff7d1fa480
commit 135d52c78e
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/cmp/cmpspecial.lsp
View file

@ -27,12 +27,9 @@
(let* ((form (c1expr (second args)))
(the-type (type-filter (first args) t))
type)
(cond ((and (consp the-type) (eq (first the-type) 'VALUES))
(cmpwarn "Ignoring THE form with type ~A" the-type))
((not (setf type (type-and the-type (c1form-primary-type form))))
(cmpwarn "Type mismatch was found in ~s." (cons 'THE args)))
(t
(setf (c1form-type form) type)))
(if (setf type (type-and the-type (c1form-primary-type form)))
(setf (c1form-type form) type)
(cmpwarn "Type mismatch was found in ~s." (cons 'THE args)))
form))
(defun c1compiler-let (args &aux (symbols nil) (values nil))