anchor.diff:                  (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)
  
positive.code: 
  (defun generate-type-registrations (assignments vtype stream)
    (terpri stream)
    (write-string "(eval-when (:compile-toplevel :load-toplevel :execute)" stream)
    (flet ((register-type (name type-form)
             (print `(setf (gethash ',name ,vtype) ',type-form) stream)))
      (dolist (assignment assignments)
  
negative.code:               stream)
        (terpri stream)
        (generate-type-registrations assignments '*types* stream)
        (write-line ")" stream)
  
        ;; generate each assignment
        (dolist (assignment assignments)
  