1 |
;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- |
;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- |
2 |
|
|
3 |
;; Copyright (C) 1993 Free Software Foundation, Inc. |
;; Copyright (C) 1993, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Gillespie <daveg@synaptics.com> |
;; Author: Dave Gillespie <daveg@synaptics.com> |
6 |
;; Version: 2.02 |
;; Version: 2.02 |
266 |
(nconc (let ((hdr (nreverse header))) |
(nconc (let ((hdr (nreverse header))) |
267 |
(require 'help-fns) |
(require 'help-fns) |
268 |
(cons (help-add-fundoc-usage |
(cons (help-add-fundoc-usage |
269 |
(if (stringp (car hdr)) (pop hdr)) orig-args) |
(if (stringp (car hdr)) (pop hdr)) |
270 |
|
;; orig-args can contain &cl-defs (an internal CL |
271 |
|
;; thingy that I do not understand), so remove it. |
272 |
|
(let ((x (memq '&cl-defs orig-args))) |
273 |
|
(if (null x) orig-args |
274 |
|
(delq (car x) (remq (cadr x) orig-args))))) |
275 |
hdr)) |
hdr)) |
276 |
(list (nconc (list 'let* bind-lets) |
(list (nconc (list 'let* bind-lets) |
277 |
(nreverse bind-forms) body))))))) |
(nreverse bind-forms) body))))))) |