anchor.diff:  (defun make-generic ((name string))
     (%make-generic name))
   
  -(defun make-instance ((c class))
  -  (%make-instance c))
  -
   (defun note ((a object))
     (%note a))
   
  
positive.code: (defmacro generic (name)
    #`(identifier ,name generic))
  
  (defmacro make (class-name)
    #`(make-instance (class ,class-name)))
  
  (defmacro defclass (class-name &optional (supers #'()) (slot-descriptors #'()))
    (let ((superclass (if (compound-empty? supers) #f (compound-elt supers 0))))
      #`(progn
          (defvar (class ,class-name) (make-class))
  
negative.code:   (apply \%string-concat arguments))
  
  (defun string-dict-get ((d string-dict) (key string))
    (%string-dict-get d key))
  
  (defun string-dict-has-key ((d string-dict) (key string))
    (%string-dict-has-key d key))
  
  (defun string-dict-map ((f function) (d string-dict))
    (%string-dict-map f d))
  
  (defun string-dict-put ((d string-dict) (key string) (value object))
    (%string-dict-put d key value))
  