[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
proposal: eliminate forced consing
- To: trwrb!smpvax1!jrg@ucbvax.berkeley.edu
- Subject: proposal: eliminate forced consing
- From: Kent M Pitman <KMP@STONY-BROOK.SCRC.Symbolics.COM>
- Date: Thu, 21 Jul 88 15:06 EDT
- Cc: cl-cleanup@sail.stanford.edu
- In-reply-to: <8807202200.AA15976@trwrb.TRW.COM>
Or we might just use the type argument and the new CLOS type EQL:
(LET ((X (MAKE-STRING 3 :INITIAL-ELEMENT #\a)))
(EQ (MAP `(EQL ,X) #'CHAR-UPCASE X) X))
:-)
[I have not yet formulated a serious opinion on this issue.]