anchor.diff:  
   
   (defpackage #:ritucci-msc-ccs-parser
  -  (:use #:common-lisp)
  +  (:use #:common-lisp #:regexp)
     (:export #:parse
   	   #:is-action
   	   #:is-label
  
positive.code: (defun is-label (expr)
    "Ritorna T se expr è un'etichetta di un'azione o il suo complementare; NIL
    altrimenti"
    (and (string-is-lowercase expr)
         (string/= expr "&")))
  
  
  (defun is-process (expr)
    "Ritorna T se expr è un processo; NIL altrimenti"
    (and (not (string-is-lowercase expr))
         (not (is-label expr))
         (not (is-action expr))))
  
negative.code: 
  
  (in-package #:ritucci-msc-ccs-parser)
  
  
  (defun parse (text)
  