>>149
何か色々話が逸れたけど、本題のiの扱いについてはちょっと考えてみた。

まず、データを読み込むときに、16に足りない分はnil辺りで埋めておけば、
l16-dumpで空白を出力する部分もl16-hdumpにまとめられる。

あとは、あらかじめ区切りの並びを作っておけば、一応数をカウントしなくて済む。

(defun hex-dump (dat sep)
(let ((c (car dat))
(sep (if sep sep '("-" " " " " " "))))
(when c
(format t "~a~2,'0x" (car sep) c)
(hex-dump (cdr dat) (cdr sep)))))

こんな風。最初に呼ぶ時は、sepに'(" " " " " " " ")渡せばいい。