anchor.diff:                stream)
         (terpri stream)
   
  +      (write-line "(eval-when (:compile-toplevel :load-toplevel :execute)" stream)
  +
         ;; generate the types description used to decode untagged choices.
         (pprint `(defparameter *types* (make-hash-table))
                 stream)
  
positive.code:                 (unless (symbolp type-form)
                    (error "assigment ~A sequence-of must be a symbol" name)))
                (register-type name type-form))))))))
    (write-line ")" stream))
  
  (defun gen (asn1 &optional (stream *standard-output*))
    (destructuring-bind (module-name assignments &key explicit implicit oid) (cdr asn1)
  
negative.code:               stream)
        (terpri stream)
        (generate-type-registrations assignments '*types* stream)
        (write-line ")" stream)
  
        ;; generate each assignment
        (dolist (assignment assignments)
  