From: Sean Engelson
Subject: Re: Implode, explode and Common Lisp
Date:
Message-ID: <1255@spice.cs.cmu.edu>
Keywords:
; Implode:
; Turn a list of things into a symbol whose print-name is the
; concatenation of the printed representations of these things.
(defmacro implode (list)
`(intern (format nil "~{~A~}" ,list)))
; Explode:
; Turn a symbol into a list of characters
(defmacro explode (sym)
`(coerce (string ,sym) 'list))
--
Credo, ergo absurdum est.
LISP ::=
((())((Lots(())))(()(()(of(((Idiotic)())()()(Silly(()))()(Parentheses))))))
----------------------------------------------------------------------
Sean Philip Engelson I have no opinions.
Carnegie-Mellon University Therefore my employer is mine.
Computer Science Department
----------------------------------------------------------------------
ARPA: ยทยทยท@spice.cs.cmu.edu
UUCP: {harvard | seismo | ucbvax}!spice.cs.cmu.edu!spe