anchor.diff:  
   
   (defmethod make-lookuptable ((factory fixed-lookuptable-factory) &optional (elements nil))
  -  (let* ((mask (reduce (lambda (prev next) (+ prev (ash 1 (car next))))
  -                       elements
  -                       :initial-value 0))
  +  (let* ((mask (coerce (reduce (lambda (prev next) (+ prev (ash 1 (car next))))
  +                               elements
  +                               :initial-value 0)
  +                       `(unsigned-byte ,(read-mask-length factory))))
            (size (logcount mask)))
       (make-instance 'fixed-lookuptable
                      :mask mask
  
positive.code:   ((%replacer
      :type vector-replacer
      :initarg :replacer
      :reader read-replacer)))
  
  
  @export
  
negative.code:     :reader read-container
      :initarg :container)
     (%mask
      :type integer
      :initarg :mask
      :reader read-mask))
    (:documentation "Lookuptable that can hold up to 32 elements, under 32 indexes (from 0 to 31)."))
  