anchor.diff:  	(incf *fresh-object-id*)))
   
   
  +;; PRINT-OBJECT
  +
  +(defmethod print-object ((e event) s)
  +  (print-unreadable-object (e s :type t :identity t)
  +    (format s "owner-path: ~a time: ~a fn: ~a"
  +	    (owner-path-of e) (time-of e) (fn-of e))
  +    (when (slot-boundp e 'args)
  +      (format s " args: ~a" (args-of e)))))
  +
  +
   ;; FUNCTIONS AND METHODS
   
   
  
positive.code: 
  
  (declaim (optimize debug safety (speed 0)))
  
  
  ;; OVERVIEW
  
negative.code: ;; schedulable
  (defmethod put ((act actor) (evs list) (out stream-out-port)
  		(str string))
    (format (stream-of out) "~&~a~%" str)
    (values act evs))
  
  
  