/[emacs]/emacs/lisp/emacs-lisp/cl-extra.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-extra.el

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

revision 1.24 by monnier, Sun May 4 00:44:25 2003 UTC revision 1.25 by monnier, Mon Jun 16 16:35:05 2003 UTC
# Line 1  Line 1 
1  ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-  ;;; cl-extra.el --- Common Lisp features, part 2 -*-byte-compile-dynamic: t;-*-
2    
3  ;; Copyright (C) 1993,2000  Free Software Foundation, Inc.  ;; Copyright (C) 1993,2000,2003  Free Software Foundation, Inc.
4    
5  ;; Author: Dave Gillespie <daveg@synaptics.com>  ;; Author: Dave Gillespie <daveg@synaptics.com>
6  ;; Keywords: extensions  ;; Keywords: extensions
# Line 718  This also does some trivial optimization Line 718  This also does some trivial optimization
718                                       '((quote --cl-rest--)))))))                                       '((quote --cl-rest--)))))))
719                   (list (car form) (list* 'lambda (cadadr form) body))))                   (list (car form) (list* 'lambda (cadadr form) body))))
720             (let ((found (assq (cadr form) env)))             (let ((found (assq (cadr form) env)))
721               (if (eq (cadr (caddr found)) 'cl-labels-args)               (if (and found (ignore-errors
722                                  (eq (cadr (caddr found)) 'cl-labels-args)))
723                   (cl-macroexpand-all (cadr (caddr (cadddr found))) env)                   (cl-macroexpand-all (cadr (caddr (cadddr found))) env)
724                 form))))                 form))))
725          ((memq (car form) '(defun defmacro))          ((memq (car form) '(defun defmacro))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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