Mercurial > hg > xemacs-beta
comparison lisp/cl-macs.el @ 4702:eb1a409c317b
Unbreak autoload.el
2009-09-28 Mike Sperber <mike@xemacs.org>
* autoload.el (make-autoload): Only try to add arguments to
documentation when the form actually allows it.
* cl-macs.el (cl-function-arglist): Add autoload; used in autoload.el.
| author | Mike Sperber <sperber@deinprogramm.de> |
|---|---|
| date | Mon, 28 Sep 2009 18:04:07 +0200 |
| parents | fee33ab25966 |
| children | 5bb0735f56e0 |
comparison
equal
deleted
inserted
replaced
| 4701:684f0ed6cd4f | 4702:eb1a409c317b |
|---|---|
| 296 (setq arg (delq '&cl-quote arg))) | 296 (setq arg (delq '&cl-quote arg))) |
| 297 (mapcar 'cl-upcase-arg arg))) | 297 (mapcar 'cl-upcase-arg arg))) |
| 298 (t arg))) ; Maybe we are in initializer | 298 (t arg))) ; Maybe we are in initializer |
| 299 | 299 |
| 300 ;; npak@ispras.ru | 300 ;; npak@ispras.ru |
| 301 ;;;###autoload | |
| 301 (defun cl-function-arglist (name arglist) | 302 (defun cl-function-arglist (name arglist) |
| 302 "Returns string with printed representation of arguments list. | 303 "Returns string with printed representation of arguments list. |
| 303 Supports Common Lisp lambda lists." | 304 Supports Common Lisp lambda lists." |
| 304 (if (not (or (listp arglist) (symbolp arglist))) | 305 (if (not (or (listp arglist) (symbolp arglist))) |
| 305 "Not available" | 306 "Not available" |