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 @@
`(let ((*free-variables* (make-hash-table :test #'eq))
(*free-functions* (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))
......
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