David Trudgett <wpower@zeta.org.au.nospamplease> wrote:
+---------------
| Actually, I just did a search and HEX-CHAR is used in exactly one
| place in the code. Viz:
|
| (defun integer-hexlist (value &optional (len 2) tail)
| (dotimes (i len tail)
| (push (funcall hex-char value) tail)
| (setf value (truncate (/ value 16)))))
+---------------
And how many places is INTEGER-HEXLIST used, also just once?
Could the whole call chain be replaced by this, perhaps?
(format nil "~2,'0x" value)
-Rob
-----
Rob Warnock <rpw3@rpw3.org>
627 26th Avenue <URL:http://rpw3.org/>
San Mateo, CA 94403 (650)572-2607