anchor.diff:                  :take)
     (:export :make-prbs
              :num-gen
  -           :bvlist-gen))
  +           :bvlist-gen
  +           :bit-gen
  +           :byte-gen))
   
   (in-package :prbs)
   
  
positive.code:                         (setq v (dcdr v))
                          (cons (bv2int b) (rec (1- c))))))))
        #'rec)))
                                
  (defun bv2int (b &optional (m 1) (a 0))
    (when b
  
negative.code:                  (bitbv (newbit bv)))))
  
  (defun make-prbs (n &optional (iv 2))
    "return a lazy list of n-bit bitvectors"
    (let ((taps '(0 1))
          (init (num->bits iv n)))
      (labels ((rec (v)
  