From 45f53a876695c8eea5b715c252986f3e895929da Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 24 Jan 2011 22:29:55 +0100 Subject: [PATCH] In C1SETQ1, the variable name is recovered from the reference, not from the argument to SETQ (J. James) --- src/cmp/cmpvar.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp index 87d17c767..609eef38c 100644 --- a/src/cmp/cmpvar.lsp +++ b/src/cmp/cmpvar.lsp @@ -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)