Major directory cleanup

[cl-sane.git] / src / debug.lisp

(in-package :sane)

(defmethod dump-option-list ((d device) &optional (stream *standard-output*))
  (iterate
    (for group in (groups d))
    (format stream "~A~%" group)))