Method: (ALLOCATE-BLOCK AROUND HEAP)

Source

(defmethod allocate-block :around ((heap heap) &key &allow-other-keys)
  (multiple-value-bind (block nr-octets)
      (call-next-method)
    (incf (nr-allocated-octets heap) nr-octets)
    (values block nr-octets)))