(eval-when (:compile-toplevel :load-toplevel :execute)
(setf sb!assem:*assem-scheduler-p* t)
(setf sb!assem:*assem-max-locations* 100))
(eval-when (:compile-toplevel :load-toplevel :execute)
(setf sb!assem:*assem-scheduler-p* t)
(setf sb!assem:*assem-max-locations* 100))