anchor.diff:    (if (and (slot-boundp obj 'name)
              (slot-boundp obj 'process)
              (slot-boundp obj 'continuation))
  -    (format stream "{~a~:[ ~a~:[ ~a~;~]~;~]}"
  +    (format stream "{~s~:[ ~s~:[ ~s~;~]~;~]}"
               (name obj)
               (and (eql (process obj) null-process)
                    (eql (continuation obj) null-process))
  
positive.code: (defmethod print-object ((obj trigger) stream)
    (if (and (slot-boundp obj 'pattern)
             (slot-boundp obj 'process))
      (format stream "(trigger ~a ~a)" (pattern obj) (process obj))
      (call-next-method)))
  
  (defun trigger (pattern process)
  
negative.code:       (make-instance 'kell :name name))))
  
  (defmethod print-object ((obj kell) stream)
    (format stream "[~s ~s~:[ ~s~;~]]"
            (name obj) (process obj)
            (eql (continuation obj) null-process) (continuation obj)))
  
  