Subject: Re: #0= ... #0#
From: rpw3@rpw3.org (Rob Warnock)
Date: Thu, 23 Feb 2006 05:17:10 -0600
Newsgroups: comp.lang.lisp
Message-ID: <_6qdnZhcvOQrBGDe4p2dnA@speakeasy.net>
Alan Crowe  <alan@cawtech.freeserve.co.uk> wrote:
+---------------
| It can be quite natural. From my Seal Song code:
| (defparameter pitch-circle '#1=(#\A #\B #\C #\D #\E #\F #\G . #1#))
+---------------

I did something similar in my "CrazyString" HTML hack:

    http://rpw3.org/hacks/lisp/crazystring.html
    http://rpw3.org/hacks/lisp/crazystring.lisp
    ...
    (defconstant +crazy-string-defaults+
		 '#1=(("#0000FF" nil "6")
		      ("#FF0000" sub "6")
		      ("#00FF00" sup "6")
		      ("#c08000" nil "6")
		      ("#0000FF" sub "6")
		      ("#FF0000" sup "6")
		      ("#00FF00" nil "6")
		      ("#c08000" sup "6") . #1#))  ; and so on, forever...
    ...

Here the idea was to simply CDR down the list of character
attributes [color, supescript/subscript/none, size] without
having to worry about the length of the input text to which
the attributes were to be applied.


-Rob

-----
Rob Warnock			<rpw3@rpw3.org>
627 26th Avenue			<URL:http://rpw3.org/>
San Mateo, CA 94403		(650)572-2607