59 |
(setq info (copy-info (cadr form))) |
(setq info (copy-info (cadr form))) |
60 |
(setq type (type-and (type-filter (car args)) (info-type info))) |
(setq type (type-and (type-filter (car args)) (info-type info))) |
61 |
(when (null type) |
(when (null type) |
62 |
(cmpwarn "Type mismatch was found in ~s." (cons 'the args))) |
(cmpwarn "Type mismatch was found in ~s." (cons 'the args))) |
63 |
(setf (info-type info) type) |
(setf (info-type info) type) |
64 |
(list* (car form) info (cddr form)) |
(list* (car form) info (cddr form)) |
65 |
) |
) |
109 |
(*tags* (cons 'cb *tags*))) |
(*tags* (cons 'cb *tags*))) |
110 |
(setq fun (c1lambda-expr (cdr fun))) |
(setq fun (c1lambda-expr (cdr fun))) |
111 |
(list 'function (cadr fun) fun))) |
(list 'function (cadr fun) fun))) |
112 |
(t (cmperr "The function ~s is illegal." fun)))) |
(t (break "bar")(cmperr "The function ~s is illegal." fun)))) |
113 |
) |
) |
114 |
|
|
115 |
(defun c2function (funob) |
(defun c2function (funob) |