っとコードを貼り付けてみる。

こんな感じかね。

コードに色付けるん出来んのんじゃろうか。

(dbi:with-connection (conn :mysql :database-name "db" :username "user" :password "pass")
  (let* ((query (dbi:prepare conn "desc `table-name`"))
         (result (dbi:execute query)))
    (loop for row = (dbi:fetch result)
       while row
       do (format t "~A~%" row))))