Permalink
Browse files

Don't call sb-ext:fold-identical-code just yet.

code-equivalent-p doesn't recognize relative jumps.
  • Loading branch information...
stassats committed Sep 16, 2018
1 parent 5fe28e4 commit a7d27f6009091e69b58211816b0969c65b20b569
Showing with 4 additions and 1 deletion.
  1. +4 −1 make-target-2-load.lisp
View
@@ -301,7 +301,10 @@
#+immobile-code (setq sb-c::*compile-to-memory-space* :auto)
#+sb-fasteval (setq sb-ext:*evaluator-mode* :interpret)
(sb-ext:fold-identical-code :print t)
;; code-equivalent-p is incomplete
;; (sb-ext:fold-identical-code :print t)
;; See comments in 'readtable.lisp'
(setf (readtable-base-char-preference *readtable*) :symbols)

0 comments on commit a7d27f6

Please sign in to comment.