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

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

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

revision 1.41 by monnier, Mon Jun 16 16:31:29 2003 UTC revision 1.42 by monnier, Sat Jul 5 00:23:04 2003 UTC
# Line 1  Line 1 
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
# Line 266  ARGLIST allows full Common Lisp conventi Line 266  ARGLIST allows full Common Lisp conventi
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)))))))

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

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