anchor.diff:  ;;; File: reaction-type.lisp
   ;;; Description:  
   
  -;;; $Id: reaction-type.lisp,v 1.7 2008/01/17 00:11:58 amallavarapu Exp $
  +;;; $Id: reaction-type.lisp,v 1.8 2008/01/17 07:16:38 amallavarapu Exp $
   
   (in-package #I@library/biochem)
   
  
positive.code:     (cond
       ((> (length loc-classes) 1)
        (b-error "Unable to determine location class for {~{~S~^ + ~} ~A ~{~S~^ + ~}} ~
                  -- have you forgotten to assign sublocations?  These LOCATION-CLASSES
                  were referred to in this REACTION-TYPE (expecting only 1): ~{~S~^, ~}."
                 clhs op crhs loc-classes))
       ((null loc-classes)
        (b-error "Unable to determine location class for {~{~S~^ + ~} ~A ~{~S~^ + ~}}."
                 clhs op crhs))
  
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))))
  