/[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.8 by camm, Tue Mar 29 22:32:56 2005 UTC revision 1.9 by camm, Sat Jul 23 08:48:44 2005 UTC
# Line 1  Line 1 
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
# Line 103  Line 104 
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    

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

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