1 |
|
;; -*-Lisp-*- |
2 |
;;; CMPSPECIAL Miscellaneous special forms. |
;;; CMPSPECIAL Miscellaneous special forms. |
3 |
;;; |
;;; |
4 |
;; Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
;; Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa |
104 |
((and (consp fun) (eq (car fun) 'lambda)) |
((and (consp fun) (eq (car fun) 'lambda)) |
105 |
(cmpck (endp (cdr fun)) |
(cmpck (endp (cdr fun)) |
106 |
"The lambda expression ~s is illegal." fun) |
"The lambda expression ~s is illegal." fun) |
107 |
(let ((*vars* (cons 'cb *vars*)) |
(let ((*vars* (cons 'cb *vars*)) |
108 |
(*funs* (cons 'cb *funs*)) |
(*funs* (cons 'cb *funs*)) |
109 |
(*blocks* (cons 'cb *blocks*)) |
(*blocks* (cons 'cb *blocks*)) |
110 |
(*tags* (cons 'cb *tags*))) |
(*tags* (cons 'cb *tags*))) |
111 |
(setq fun (c1lambda-expr (cdr fun))) |
(setq fun (c1lambda-expr (cdr fun))) |
112 |
(list 'function (cadr fun) fun))) |
(list 'function (cadr fun) fun))) |
113 |
(t (cmperr "The function ~s is illegal." fun)))) |
(t (cmperr "The function ~s is illegal." fun)))) |
114 |
) |
) |
115 |
|
|