Subject: Re: Abuse of defvar??
From: rpw3@rpw3.org (Rob Warnock)
Date: Tue, 05 Apr 2005 00:05:06 -0500
Newsgroups: comp.lang.lisp
Message-ID: <SZqdnduNcPUfgc_fRVn-gA@speakeasy.net>
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