Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!rochester!pt!spice.cs.cmu.edu!spe
From: spe@spice.cs.cmu.edu (Sean Engelson)
Newsgroups: comp.lang.lisp
Subject: Re: Implode, explode and Common Lisp
Message-ID: <1255@spice.cs.cmu.edu>
Date: Thu, 6-Aug-87 10:46:13 EDT
Article-I.D.: spice.1255
Posted: Thu Aug  6 10:46:13 1987
Date-Received: Sat, 8-Aug-87 14:06:16 EDT
Reply-To: spe@spice.cs.cmu.edu (Sean Engelson)
Organization: Carnegie-Mellon University, CS/RI
Lines: 28

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: spe@spice.cs.cmu.edu
UUCP: {harvard | seismo | ucbvax}!spice.cs.cmu.edu!spe