anchor.diff:  (defun path-starts-with (seq test)
     (equal (subseq seq 0 (length test))
   	 test))
  -
  -
  -(defun fresh-object-id ()
  -  (incf *fresh-object-id*))
  -
  -
  -(defun fresh-event-id ()
  -  (incf *fresh-event-id*))
  -
  -
  -(defun fresh-port-id ()
  -  (incf *fresh-port-id*))
   
   
   (defun sort-events (evs)
  
positive.code: (defparameter *out->in* (make-hash-table))
  
  
  
  ;; FUNCTIONS AND METHODS
  
  
negative.code: 
  (defclass with-id ()     ; abstract
    ((id
      :reader id-of
      :type id-type
      :documentation "Unique id")))
  