anchor.diff:             (mapcar #'second ,bindings)
          ,@body))))
          
  +(defun maybe-complex-form-expandable-p (form)
  +  (and (consp form)
  +       (not (fld-form-p form))))
   
   (defun user-complex-expand-1 (form)
     (assert (consp form))
     (cond
  -   ((consp form)
  +   ((maybe-complex-form-expandable-p form)
       (let ((cplxfn (user-defined-complex-function (first form))))
         (cond
          (cplxfn  (values (funcall cplxfn (rest form))
  
positive.code: ;;;; THE SOFTWARE.
  
  
  ;;; $Id: species-type.lisp,v 1.57 2008/09/11 21:50:08 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  
negative.code:                                      ,@body))))
       ',name)))
  (defun user-defined-complex-function (name)
    (gethash (if (fld-form-p name) (fld-form-object name) name)
             *complex-expansions*))
  (defun process-complex-macro-output (name complex-form)
    (assert (and (object-form-p complex-form) (object-form-p (object-form-object complex-form)))
        ()
  