(defmethod render ((obj progbar))
  (with-slots (size step steps)
      (let* ((size (- size 2))
             (fill (floor (* (/ step steps) size)))
             (done (coerce (char-times #\# fill) 'string))
             (left (coerce (char-times #\. (- size fill)) 'string))
        (printw (format nil "[~A~A]" done left))))))