/[gcl]/gcl/cmpnew/gcl_cmpvar.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpvar.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by camm, Tue Dec 28 22:24:18 2004 UTC revision 1.8 by camm, Fri Jan 7 17:58:33 2005 UTC
# Line 357  Line 357 
357    (add-info info (cadr form1))    (add-info info (cadr form1))
358    (setq type (type-and (var-type (car name1)) (info-type (cadr form1))))    (setq type (type-and (var-type (car name1)) (info-type (cadr form1))))
359    (when (null type)    (when (null type)
360          (cmpwarn "Type mismatches between ~s and ~s." name form))      (cmpwarn "Type mismatches between ~s and ~s." name form))
361    (unless (eq type (info-type (cadr form1)))    (unless (eq type (info-type (cadr form1)))
362      (let ((info1 (copy-info (cadr form1))))      (let ((info1 (copy-info (cadr form1))))
363           (setf (info-type info1) type)           (setf (info-type info1) type)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26