Skip to content
Snippets Groups Projects
Commit 441cee2f authored by ram's avatar ram
Browse files

Added *FAILED-OPTIMIZATIONS* to the hashtables we create in

WITH-IR1-NAMESPACE so that the compiler will be re-entrant.
parent 640d8254
No related branches found
No related tags found
No related merge requests found
...@@ -697,7 +697,8 @@ ...@@ -697,7 +697,8 @@
`(let ((*free-variables* (make-hash-table :test #'eq)) `(let ((*free-variables* (make-hash-table :test #'eq))
(*free-functions* (make-hash-table :test #'equal)) (*free-functions* (make-hash-table :test #'equal))
(*constants* (make-hash-table :test #'equal)) (*constants* (make-hash-table :test #'equal))
(*source-paths* (make-hash-table :test #'eq))) (*source-paths* (make-hash-table :test #'eq))
(*failed-optimizations* (make-hash-table :test #'eq)))
,@forms)) ,@forms))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment