anchor.diff:  (defmethod asdf:perform ((o print-op) c)
     t)
   
  +(defmethod asdf:perform ((o print-op)(c asdf:system))
  +  (format t "~&;;; printing system ~A~%" (asdf:component-pathname c))
  +  (asdf/run-program:run-program
  +    (format nil "~A -U~D -A~D -i~Di -M ~A -F ~A -f ~A ~A"
  +      (slot-value o 'program)
  +      (slot-value o 'nup)
  +      (slot-value o 'ncol)
  +      (slot-value o 'indent)
  +      (slot-value o 'media)
  +      (slot-value o 'heading-fontspec)
  +      (slot-value o 'body-fontspec)
  +      (asdf:component-pathname c))))
  +  
   (defmethod asdf:perform ((o print-op)(c asdf:source-file))
     (format t "~&;;; printing source ~A~%" (asdf:component-pathname c))
     (asdf/run-program:run-program
  
positive.code: (defmethod asdf:operation-done-p ((o print-op)(c asdf:static-file))
    nil)
  
  (defmethod asdf:operate ((o print-op)(s asdf:module) &key)
    (mapc #'(lambda (spec) (apply #'asdf:perform (list (car spec) (cdr spec))))
      (asdf::traverse o s)))
  
negative.code: (import '(cldoc:print-op cldoc:print-system) :cl-user)
  (import '(cldoc:print-op cldoc:print-system) :asdf)
  
  (defun :lpr (system-designator)
    (print-system system-designator))
  
  ;; (print-system :gs.ebu.asdf)
  
  ;;;;;
  