lispdoc - results for formatter

(defun universal-time-to-http-date (utime)
  "Decode the universal time UTIME and return a date suitable for use in HTTP 1.0 applications (RFC-822, but GMT)"
  (declare (optimize (speed 3)))
  (with-date utime 0
   (format nil
           (formatter
            "~3/net.telent.date:dayname/, ~2,'0D ~3/net.telent.date:monthname/ ~D ~2,'0D:~2,'0D:~2,'0D GMT")
           day-of-week day-of-month month year
           hour minute second)))