anchor.diff:         ;; public readers for low level slots:
          (defun ,(getter-name name 'alternative) (choice) (,(accessor-name name '%alternative) choice))
          (defun ,(getter-name name 'value)       (choice) (,(accessor-name name '%value)       choice))
  -       ;; DER encoding/decoding:
  +       ;; DER encoding:
          (defun ,(encoder-name name) (stream choice)
            (check-type stream stream)
            (check-type choice ,name)
  
positive.code:       ;; start by defining the oid
        (pprint `(defparameter ,(alexandria:symbolicate '* module-name '-oid*) (list ,@(mapcar #'third oid)))
                stream)
        (terpri stream)
  
        ;; generate each assignment
  
negative.code: ;;;; Copyright (c) Frank James 2015 <frank.a.james@gmail.com>
  ;;;; CHOICE implementation: Copyright (c) Pascal J. Bourguignon 2016 <pjb@informatimago.com>
  ;;;; This code is licensed under the MIT license.
  
  (in-package #:asinine)
  