Constantify *BIT-MAP*

[phoe]

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.