Constantify *BIT-MAP*

[Michał "phoe" Herda]

bit-smasher/src/core.lisp

Lines 8 to 24 in c2dcb3b

 (declaim (type (simple-array (simple-bit-vector 4) (16)) *bit-map*)) 
 (defvar *bit-map* #(#*0000 
                     #*0001 
                     #*0010 
                     #*0011 
                     #*0100 
                     #*0101 
                     #*0110 
                     #*0111 
                     #*1000 
                     #*1001 
                     #*1010 
                     #*1011 
                     #*1100 
                     #*1101 
                     #*1110 
                     #*1111)) 

Perhaps you could try to use ALEXANDRIA:DEFCONSTANT with :TEST #'EQUALP to turn this into a constant, in order to avoid (dynamic) variable lookup at runtime.