anchor.diff:  ;; schedulable
   (defmethod put ((act actor) (evs list) (out stream-out-port)
   		(str string))
  -  (format (stream-of out) "~a" str)
  +  (format (stream-of out) "~&~a~%" str)
     (values act evs))
   
   
  
positive.code: 
  
  (declaim (optimize debug safety (speed 0)))
  
  
  ;; OVERVIEW
  
negative.code: 	(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
  
  
  