/[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.40 by lektu, Tue May 6 17:37:04 2003 UTC revision 1.41 by monnier, Mon Jun 16 16:31:29 2003 UTC
# Line 912  Valid clauses are: Line 912  Valid clauses are:
912                        (setq var (prog1 other (setq other var))))                        (setq var (prog1 other (setq other var))))
913                    (setq loop-map-form                    (setq loop-map-form
914                          (list (if (memq word '(key-seq key-seqs))                          (list (if (memq word '(key-seq key-seqs))
915                                    'cl-map-keymap-recursively 'cl-map-keymap)                                    'cl-map-keymap-recursively 'map-keymap)
916                                (list 'function (list* 'lambda (list var other)                                (list 'function (list* 'lambda (list var other)
917                                                       '--cl-map)) map))))                                                       '--cl-map)) map))))
918    
# Line 2497  surrounded by (block NAME ...). Line 2497  surrounded by (block NAME ...).
2497      (list 'progn      (list 'progn
2498            (if p nil   ; give up if defaults refer to earlier args            (if p nil   ; give up if defaults refer to earlier args
2499              (list 'define-compiler-macro name              (list 'define-compiler-macro name
2500                    (list* '&whole 'cl-whole '&cl-quote args)                    (if (memq '&key args)
2501                          (list* '&whole 'cl-whole '&cl-quote args)
2502                        (cons '&cl-quote args))
2503                    (list* 'cl-defsubst-expand (list 'quote argns)                    (list* 'cl-defsubst-expand (list 'quote argns)
2504                           (list 'quote (list* 'block name body))                           (list 'quote (list* 'block name body))
2505                           (not (or unsafe (cl-expr-access-order pbody argns)))                           (not (or unsafe (cl-expr-access-order pbody argns)))

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

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