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

In C1SETQ1, the variable name is recovered from the reference, not from the argument to SETQ (J. James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:29:55 +01:00
parent 46654c732d
commit 45f53a8766
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
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." name form)
(cmpwarn "Type mismatch between ~s and ~s." (var-name vref) form)
(setq type T))
;; Is this justified????
#+nil(setf (c1form-type form1) type)