anchor.diff:  ;;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
   ;;;; THE SOFTWARE.
   
  -;;; $Id: species-type.lisp,v 1.14 2007/12/06 14:32:45 amallavarapu Exp $
  +;;; $Id: species-type.lisp,v 1.15 2007/12/10 14:33:46 amallavarapu Exp $
   ;;; $Name:  $
   
   ;;; File: complex-species-type.lisp
  
positive.code:                               (etypecase id
                                  (complex-graph  id)
                                  (cons           (make-complex-graph id nil)))))))
    =>
    (setf .location-class (complex-graph-location-class .id #'monomer-symbol-p)))
  
  (defield complex-species-type.monomers ()
    (remove-if-not #'symbolp (gtools:graph-labels .id)))
  
negative.code:                                     :suffix (if complex "]" ""))
          (loop for mdescr = (pprint-pop)
                do (prin1 `[,@mdescr] stream)
                (pprint-exit-if-list-exhausted)
                (pprint-newline-selectively :linear stream))))))
  
  
  ;;;
  