Mercurial > hg > xemacs-beta

comparison lisp/cl/cl-macs.el @ 96:dbb370e3c29e r20-0final

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0final
author cvs
date Mon, 13 Aug 2007 09:12:40 +0200
parents 131b0175ea99
children 34a5b81f86ba
comparison
equal deleted inserted replaced
95:e8c07a565f9c 96:dbb370e3c29e
1397 (defun cl-do-proclaim (spec hist) 1397 (defun cl-do-proclaim (spec hist)
1398 (and hist (listp cl-proclaim-history) (cl-push spec cl-proclaim-history)) 1398 (and hist (listp cl-proclaim-history) (cl-push spec cl-proclaim-history))
1399 (cond ((eq (car-safe spec) 'special) 1399 (cond ((eq (car-safe spec) 'special)
1400 (if (boundp 'byte-compile-bound-variables) 1400 (if (boundp 'byte-compile-bound-variables)
1401 (setq byte-compile-bound-variables 1401 (setq byte-compile-bound-variables
1402 (append (cdr spec) byte-compile-bound-variables)))) 1402 ;; todo: this should compute correct binding bits vs. 0
1403 (append (mapcar #'(lambda (v) (cons v 0))
1404 (cdr spec))
1405 byte-compile-bound-variables))))
1403 1406
1404 ((eq (car-safe spec) 'inline) 1407 ((eq (car-safe spec) 'inline)
1405 (while (setq spec (cdr spec)) 1408 (while (setq spec (cdr spec))
1406 (or (memq (get (car spec) 'byte-optimizer) 1409 (or (memq (get (car spec) 'byte-optimizer)
1407 '(nil byte-compile-inline-expand)) 1410 '(nil byte-compile-inline-expand))