anchor.diff:  
   (in-package "COMMON-LISP-USER")
   (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ACTIVITY"
  -  (:use "COMMON-LISP")
  +  (:use "COMMON-LISP"
  +        "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.LIST")
     (:export
      "MAKE-ACTIVITY" "CURRENT-ACTIVITY" "ACTIVITYP" "ACTIVITY-YIELD"
      "ALL-ACTIVITIES" "DESTROY-ACTIVITY" "ACTIVITY-RUN"
  
positive.code: in round-robin fashion for "))
  
  (defmethod scheduler-all-activities ((scheduler idle-scheduler))
    (copy-list (scheduler-activities scheduler)))
  
  (defmethod schedule-activity ((scheduler idle-scheduler) (activity activity))
    (setf *rescheduled* t)
  
negative.code:         (line-cs
           (let ((precision      (precision (scheduler-time-base scheduler)))
                 (all-activities (scheduler-all-activities scheduler)))
             (print (list 'all-activities all-activities)) (finish-output)
             (format nil "~~&~~4D ~~8A ~A ~A ~~:[.~~;D~~]~~:[.~~;E~~] ~~S~~%"
                     (format-for-field all-activities
                                       (function activity-scheduled-time)
  