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

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:34:03 +01:00
parent 087b65aaad
commit a1948e845c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpvar.lsp
View file

@ -347,7 +347,7 @@
(form1 (c1expr form))
(type (type-and (var-type name1) (c1form-primary-type form1))))
(unless type
(cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
(cmpwarn "Type mismatch between ~s and ~s." name form)
(setq type T))
;; Is this justified????
#+nil(setf (c1form-type form1) type)
@ -410,7 +410,7 @@
(form (c1expr (second l)))
(type (type-and (var-type vref) (c1form-primary-type form))))
(unless type
(cmpwarn "Type mismatch between ~s and ~s." name form)
(cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
(setq type T))
;; Is this justified????
#+nil(setf (c1form-type form) type)