Mercurial > hg > xemacs-beta

comparison lisp/cl/cl-macs.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 859a2309aef8
children dbb370e3c29e
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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 ;; todo: this should compute correct binding bits vs. 0 1402 (append (cdr spec) byte-compile-bound-variables))))
1403 (append (mapcar #'(lambda (v) (cons v 0))
1404 (cdr spec))
1405 byte-compile-bound-variables))))
1406 1403
1407 ((eq (car-safe spec) 'inline) 1404 ((eq (car-safe spec) 'inline)
1408 (while (setq spec (cdr spec)) 1405 (while (setq spec (cdr spec))
1409 (or (memq (get (car spec) 'byte-optimizer) 1406 (or (memq (get (car spec) 'byte-optimizer)
1410 '(nil byte-compile-inline-expand)) 1407 '(nil byte-compile-inline-expand))