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

Diff of /gcl/cmpnew/gcl_cmpspecial.lsp

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

revision 1.6 by camm, Thu Aug 5 22:17:17 2004 UTC revision 1.7 by camm, Fri Jan 7 17:58:33 2005 UTC
# Line 59  Line 59 
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    )    )
# Line 109  Line 109 
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)

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

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