anchor.diff:                           (cadr form)))
                    forms))))
   
  +(defun apply-unwrapped-values (op &rest values)
  +  (apply op (mapcar #'mal-value values)))
  
positive.code:               (make-instance ',name
                               :value value
                               :meta meta))
  
              (export ',name)
              (export ',constructor))))
  
  (define-mal-type number)
  (define-mal-type symbol)
  
negative.code:                                                   (symbol-name type)))))
          (constructor (intern (string-upcase (concatenate 'string
                                                           "make-mal-"
                                                           (symbol-name type)))))
          (predicate (intern (string-upcase (concatenate 'string
                                                           "mal-"
                                                           (symbol-name type)
                                                           "-p")))))
      `(progn (defclass ,name (mal-type)
                ((type :accessor mal-type
                       :initarg :type
  