anchor.diff:    ((%replacer
       :type vector-replacer
       :initarg :replacer
  -    :reader read-replacer)))
  +    :reader read-replacer)
  +   (%mask-length
  +    :type (unsigned-byte 8)
  +    :initarg :mask-length
  +    :initform 32
  +    :reader read-mask-length)))
   
   
   @export
  
positive.code: 
  
  (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))
           (size (logcount mask)))
      (make-instance 'fixed-lookuptable
                     :mask mask
  
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)."))
  