Mercurial > hg > xemacs-beta

comparison lisp/cl-macs.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 972bbb6d6ca2
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
1449 (defun cl-do-proclaim (spec hist) 1449 (defun cl-do-proclaim (spec hist)
1450 (and hist (listp cl-proclaim-history) (cl-push spec cl-proclaim-history)) 1450 (and hist (listp cl-proclaim-history) (cl-push spec cl-proclaim-history))
1451 (cond ((eq (car-safe spec) 'special) 1451 (cond ((eq (car-safe spec) 'special)
1452 (if (boundp 'byte-compile-bound-variables) 1452 (if (boundp 'byte-compile-bound-variables)
1453 (setq byte-compile-bound-variables 1453 (setq byte-compile-bound-variables
1454 ;; todo: this should compute correct binding bits vs. 0 1454 (append
1455 (append (mapcar #'(lambda (v) (cons v 0)) 1455 (mapcar #'(lambda (v) (cons v byte-compile-global-bit))
1456 (cdr spec)) 1456 (cdr spec))
1457 byte-compile-bound-variables)))) 1457 byte-compile-bound-variables))))
1458 1458
1459 ((eq (car-safe spec) 'inline) 1459 ((eq (car-safe spec) 'inline)
1460 (while (setq spec (cdr spec)) 1460 (while (setq spec (cdr spec))
1461 (or (memq (get (car spec) 'byte-optimizer) 1461 (or (memq (get (car spec) 'byte-optimizer)
1462 '(nil byte-compile-inline-expand)) 1462 '(nil byte-compile-inline-expand))