mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Don't change byte-compile-delete-errors at runtime (Bug#27340)

Browse source 
* lisp/emacs-lisp/eieio-core.el: Confine `cl-declaim' calls to compile
time.
This commit is contained in:
Noam Postavsky 2017-06-16 07:43:29 -04:00
parent 4bd4df4047
commit c75eb1030f
1 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/eieio-core.el
View file

@ -84,7 +84,7 @@ Currently under control of this var:
(progn (progn
;; Arrange for field access not to bother checking if the access is indeed ;; Arrange for field access not to bother checking if the access is indeed
;; made to an eieio--class object. ;; made to an eieio--class object.
(cl-declaim (optimize (safety 0))) (eval-when-compile (cl-declaim (optimize (safety 0))))
(cl-defstruct (eieio--class (cl-defstruct (eieio--class
(:constructor nil) (:constructor nil)
@ -103,8 +103,12 @@ Currently under control of this var:
options ;; storage location of tagged class option options ;; storage location of tagged class option
; Stored outright without modifications or stripping ; Stored outright without modifications or stripping
) )
;; Set it back to the default value. ;; Set it back to the default value. NOTE: Using the default
(cl-declaim (optimize (safety 1)))) ;; `safety' value does NOT give the default
;; `byte-compile-delete-errors' value. Therefore limit this (and
;; the above `cl-declaim') to compile time so that we don't affect
;; code which only loads this library.
(eval-when-compile (cl-declaim (optimize (safety 1)))))
(eval-and-compile (eval-and-compile