;;;--------------------------------------------------------------------------
;;; Testing.
(defmethod perform ((op test-op) (component (eql (find-system "sod"))))
(declare (ignore op component))
;;;--------------------------------------------------------------------------
;;; Testing.
(defmethod perform ((op test-op) (component (eql (find-system "sod"))))
(declare (ignore op component))