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 |
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)) |