Defining An Action

(define-action-type TRACE-HEADERS
   (:standard
    :documentation "Traces the headers of accessed URIs.")
  (action activity url)
   (let ((*headers* (get-resource-headers activity url))
         (stream (report-stream activity)))
     (when *headers*
       (fresh-line stream)
       (print-headers stream))))

Previous slide Next slide Back to the first slide View Graphic Version