Skip to content

Commit

Permalink
[fix] in nonlite: define optim-speed etc using cl-environments
Browse files Browse the repository at this point in the history
  • Loading branch information
digikar99 committed Apr 2, 2024
1 parent 80121b5 commit 9abdaf3
Showing 1 changed file with 13 additions and 0 deletions.
13 changes: 13 additions & 0 deletions src/nonlite/utils.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -33,6 +33,19 @@
(defun env-safety (environment)
(second (assoc 'safety (declaration-information 'optimize environment))))

(define-symbol-macro optim-safety (= 3 (env-safety env)))

(define-symbol-macro optim-debug (or (= 3 (env-debug env))
(> (env-debug env)
(env-speed env))))
(define-symbol-macro optim-speed (and (/= 3 (env-debug env))
(= 3 (env-speed env))))
(define-symbol-macro optim-slight-speed (and (/= 3 (env-debug env))
(/= 3 (env-speed env))
(<= (env-debug env)
(env-speed env))))


(defun form-type (form env &key (return-default-type t)
expand-compiler-macros constant-eql-types)
(or (ignore-errors
Expand Down

0 comments on commit 9abdaf3

Please sign in to comment.