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

Fixed typo in the implementation of THE.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 11:13:37 +01:00
parent 6801d9de04
commit d013d603f0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpspecial.lsp
View file

@ -27,7 +27,7 @@
(let* ((form (c1expr (second args)))
(the-type (type-filter (first args) t))
type)
(if (setf type (type-and the-type (c1form-primary-type form)))
(if (setf type (values-type-and the-type (c1form-primary-type form)))
(setf (c1form-type form) type)
(cmpwarn "Type mismatch was found in ~s." (cons 'THE args)))
form))