common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Slightly insulate test from build-time option

Browse source
This commit is contained in:
Douglas Katzman 2020-05-13 18:10:41 -04:00
parent 48330a5a62
commit c2bf245115
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/macro-policy-decls.impure-cload.lisp
View file

@ -4,7 +4,12 @@
;; Return the _ordinary_ compilation policy as a sexpr. ;; Return the _ordinary_ compilation policy as a sexpr.
;; You can't detect the macro policy from a lexenv because the macro's ENV arg ;; You can't detect the macro policy from a lexenv because the macro's ENV arg
;; is the policy for compiling target code, not for compiling the macro. ;; is the policy for compiling target code, not for compiling the macro.
(list 'quote (sb-c::policy-to-decl-spec (sb-c::lexenv-policy env)))) (list 'quote
;; Test should pass irrespective of whether the baseline policy
;; asks for allocation profiling.
(remove 'sb-c::instrument-consing
(sb-c::policy-to-decl-spec (sb-c::lexenv-policy env))
:key 'car)))
(declaim (optimize (speed 2) sb-c:store-coverage-data)) (declaim (optimize (speed 2) sb-c:store-coverage-data))