Mercurial > hg > xemacs-beta

comparison lisp/cl/cl-macs.el @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
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))