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:      
       ;; if this is an object form which contains object-forms e.g., [[...][...]]
       ;; expand it
       ((and (consp new-form)
             (consp (first new-form)))
        (values
         (apply #'append
                (mapcar (lambda (subform) 
  
negative.code: ;;;; THE SOFTWARE.
  
  
  ;;; $Id: species-type.lisp,v 1.58 2008/10/31 05:27:54 amallavarapu Exp $
  ;;; $Name:  $
  
  ;;; File: complex-species-type.lisp
  