From edf42af2cccab9d2ea2730f721fec5d41b4700f8 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Mon, 26 Apr 2021 22:58:08 +0200 Subject: Rework where `comp-ctxt' is defined. * test/lisp/emacs-lisp/comp-cstr-tests.el (comp-ctxt): Remove `comp-ctxt' definition. * lisp/emacs-lisp/comp.el (comp-ctxt): Likewise. * lisp/emacs-lisp/comp-cstr.el (comp-ctxt): Define it here. --- lisp/emacs-lisp/comp-cstr.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/emacs-lisp/comp-cstr.el') diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el index d22d19ce1ec..b87cbf7e83c 100644 --- a/lisp/emacs-lisp/comp-cstr.el +++ b/lisp/emacs-lisp/comp-cstr.el @@ -175,6 +175,10 @@ Return them as multiple value." collect cstr into positives finally return (cl-values positives negatives))) +;; So we can load comp-cstr.el and comp.el in non native compiled +;; builds. +(defvar comp-ctxt) + (defvar comp-cstr-one (comp-value-to-cstr 1) "Represent the integer immediate one.") -- cgit v1.2.3