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: 
  (defun generate-type-registrations (assignments vtype stream)
    (terpri stream)
    (flet ((register-type (name type-form)
             (print `(setf (gethash ',name ,vtype) ',type-form) stream)))
      (dolist (assignment assignments)
  