Mercurial > emacs
comparison lisp/emacs-lisp/cl-macs.el @ 91085:880960b70474
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-283
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 11 Nov 2007 00:56:44 +0000 |
| parents | aaccdab0ee26 1b9a295d3722 |
| children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 91084:a4347a111894 | 91085:880960b70474 |
|---|---|
| 1 ;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*- | 1 ;;; cl-macs.el --- Common Lisp macros |
| 2 | 2 |
| 3 ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007 | 3 ;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Author: Dave Gillespie <daveg@synaptics.com> | 6 ;; Author: Dave Gillespie <daveg@synaptics.com> |
| 1552 byte-optimize (nth 1 speed))) | 1552 byte-optimize (nth 1 speed))) |
| 1553 (if safety (setq cl-optimize-safety (car safety) | 1553 (if safety (setq cl-optimize-safety (car safety) |
| 1554 byte-compile-delete-errors (nth 1 safety))))) | 1554 byte-compile-delete-errors (nth 1 safety))))) |
| 1555 | 1555 |
| 1556 ((and (eq (car-safe spec) 'warn) (boundp 'byte-compile-warnings)) | 1556 ((and (eq (car-safe spec) 'warn) (boundp 'byte-compile-warnings)) |
| 1557 (if (eq byte-compile-warnings t) | |
| 1558 (setq byte-compile-warnings byte-compile-warning-types)) | |
| 1559 (while (setq spec (cdr spec)) | 1557 (while (setq spec (cdr spec)) |
| 1560 (if (consp (car spec)) | 1558 (if (consp (car spec)) |
| 1561 (if (eq (cadar spec) 0) | 1559 (if (eq (cadar spec) 0) |
| 1562 (setq byte-compile-warnings | 1560 (byte-compile-disable-warning (caar spec)) |
| 1563 (delq (caar spec) byte-compile-warnings)) | 1561 (byte-compile-enable-warning (caar spec))))))) |
| 1564 (setq byte-compile-warnings | |
| 1565 (adjoin (caar spec) byte-compile-warnings))))))) | |
| 1566 nil) | 1562 nil) |
| 1567 | 1563 |
| 1568 ;;; Process any proclamations made before cl-macs was loaded. | 1564 ;;; Process any proclamations made before cl-macs was loaded. |
| 1569 (defvar cl-proclaims-deferred) | 1565 (defvar cl-proclaims-deferred) |
| 1570 (let ((p (reverse cl-proclaims-deferred))) | 1566 (let ((p (reverse cl-proclaims-deferred))) |
| 2726 | 2722 |
| 2727 | 2723 |
| 2728 (run-hooks 'cl-macs-load-hook) | 2724 (run-hooks 'cl-macs-load-hook) |
| 2729 | 2725 |
| 2730 ;; Local variables: | 2726 ;; Local variables: |
| 2731 ;; byte-compile-warnings: (redefine callargs free-vars unresolved obsolete noruntime) | 2727 ;; byte-compile-dynamic: t |
| 2728 ;; byte-compile-warnings: (not cl-functions) | |
| 2732 ;; generated-autoload-file: "cl-loaddefs.el" | 2729 ;; generated-autoload-file: "cl-loaddefs.el" |
| 2733 ;; End: | 2730 ;; End: |
| 2734 | 2731 |
| 2735 ;; arch-tag: afd947a6-b553-4df1-bba5-000be6388f46 | 2732 ;; arch-tag: afd947a6-b553-4df1-bba5-000be6388f46 |
| 2736 ;;; cl-macs.el ends here | 2733 ;;; cl-macs.el ends here |