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) |