Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!rutgers!rochester!pt!cadre!geb
From: geb@cadre.dsl.PITTSBURGH.EDU (Gordon E. Banks)
Newsgroups: comp.lang.lisp
Subject: Re: Implode, explode and Common Lisp
Message-ID: <771@cadre.dsl.PITTSBURGH.EDU>
Date: Thu, 6-Aug-87 09:05:21 EDT
Article-I.D.: cadre.771
Posted: Thu Aug  6 09:05:21 1987
Date-Received: Sat, 8-Aug-87 10:40:26 EDT
References: <1840@chalmers.UUCP>
Reply-To: geb@cadre.dsl.pittsburgh.edu.UUCP (Gordon E. Banks)
Distribution: world
Organization: Decision Systems Lab., Univ. of Pittsburgh, PA.
Lines: 18

In article <1840@chalmers.UUCP> sundin@chalmers.UUCP (Ulf Sundin) writes:
>I intend to translate a rather large Franz Lisp program
>to Common Lisp. However, some parts of the progeram relies
>heavily on the use of 'implode' and 'explode' for which
>no equivalents are defined in Common Lisp.
>
This seems to work for me, but I'm no Lisp expert.


(defun explode (atom-name)
  "Explodes the atom name into a list of characters."
  (coerce (string atom-name) 'list))

(defun implode (charlist)
  "Given a list of characters, returns an imploded atom name."
  (intern (coerce charlist 'string)))

If you have a better solution, let me know, since I use these a lot.