anchor.diff:  (defun clear-flag (name)
     (setf (flag-p name) nil))
   
  -(defun bit-vector->integer (bit-vector)
  -  "Create a positive integer from a bit-vector."
  -  (reduce #'(lambda (first-bit second-bit)
  -              (+ (* first-bit 2) second-bit))
  -          bit-vector))
  -
   (defun flags-register (&optional (is-word t))
     (let ((flags (vector 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0)))
       (setf (elt flags (- 15 0)) (flag :cf))
  
positive.code:     ((= opcode #xfe) (parse-group4-opcode))
      ((= opcode #xff) (parse-group5-opcode))
      ((in-paired-byte-block-p opcode #xf6) (parse-group3-opcode opcode))
      ((= opcode #x9c) (push-flags))
      ((= opcode #x9d) (pop-flags))
      ((= opcode #x9e) (store-flags-to-ah))
  
negative.code: ;;;; Intel 8086 emulator (CPU)
  
  ;;; Convenience functions
  
  (defmacro xor (op1 op2)
    `(not (eq ,op1 ,op2)))
  
  ;; Taken from http://www.lispforum.com/viewtopic.php?f=2&t=1205#p6269; not necessarily under same license as my code.
  
  (defun bit-vector->integer (bit-vector)
    "Create a positive integer from a bit-vector."
    (reduce #'(lambda (first-bit second-bit)
                (+ (* first-bit 2) second-bit))
            bit-vector))
  
  ;;; Program settings
  
  