anchor.diff:         nil)))
   
   ;;;;
  -;;;; NEW APPROACH
  +;;;; PARSING OF REACTION-TYPE ARGUMENTS:
   ;;;;
   (defun canonicalize-reaction-type-argument (x type-fn)
     "Returns:
  
positive.code: ;;; File: reaction-type.lisp
  ;;; Description:  
  
  ;;; $Id: reaction-type.lisp,v 1.5 2007/12/16 02:18:50 amallavarapu Exp $
  
  (in-package #I@library/biochem)
  
  
negative.code: ;;;;     (when rt-arg 
  ;;;;       (unless (sum-expression-p rt-arg)
  ;;;;         (b-error "Invalid argument to reaction-type: ~S.  Expecting a {na A + nb B + nb C....}" rt-arg))
  ;;;;       rt-arg.(map-terms #'check-term))))