anchor.diff:    (unless (null (memory-parent memory))
       (pushnew memory (memory-children-slot (memory-parent memory)))))
   
  +(defmethod shared-initialize :after ((processor processor) slot-names &key &allow-other-keys)
  +  (declare (ignore slot-names))
  +  (labels ((register-processor-with-memory (memory)
  +             (unless (null memory)
  +               (pushnew processor (memory-processors-slot memory))
  +               (register-processor-with-memory (memory-parent memory)))))
  +    (register-processor-with-memory (processor-memory processor))))
  +
   (defmethod print-object ((memory memory) stream)
  -  (format stream "~@<#<~;~S ~_~@{~S ~:_~S~^ ~_~}~;#>~:>"
  +  (format stream "~@<#<~;~S ~_~@{~S ~:_~S~^ ~_~}~;>~:>"
             (class-name (class-of memory))
             :name (memory-name memory)
             :size (memory-size memory)
  
positive.code:              :granularity 64
               :latency 40
               :bandwidth 64
               :parent-bandwidth 8)))
      (make-instance 'machine
        :processors
        (loop for id below n-cpus
              collect
              (make-instance 'processor
                :name (format nil "CPU-~D" id)
                :memory
                (make-instance 'memory
                  :name "L1"
                  ;; We assume  32 KB of L1 cache per CPU.
                  :size (* 32 1024)
                  :granularity 64
                  :latency 5
                  :bandwidth 128
                  :parent-bandwidth 32
                  :parent
                  (make-instance 'memory
                    :name "L2"
                    :parent l3-cache
                    ;; We assume  512 KB of L2 cache per CPU.
                    :size (* n-cpus 512 1024)
                    :granularity 64
                    :latency 15
                    :bandwidth 64
                    :parent-bandwidth 16)))))))
  
negative.code:    (%processors
      :initarg :processors
      :reader machine-processors
      :type list)
     ;; The main memory of that machine.
     (%main-memory
      :initarg :main-memory
      :reader machine-main-memory
      :type memory)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  