Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!agate!bionet!csd4.milw.wisc.edu!leah!itsgw!steinmetz!uunet!brunix!sunup.cs.brown.edu!tac
From: tac@sunup.cs.brown.edu
Newsgroups: comp.lang.lisp
Subject: explode/implode
Message-ID: <189@brunix.UUCP>
Date: 13 Feb 89 16:35:59 GMT
Sender: news@brunix.UUCP
Reply-To: tac@sunup.cs.brown.edu ()
Organization: Brown University Department of Computer Science
Lines: 11


(defun explode (x)
   (mapcar #'intern (mapcar #'string (coerce (string x) 'list))))

(defun implode (x)
   (intern (apply #'concatenate (cons 'string (mapcar #'string x)))))

  CSnet:     tac@cs.brown.edu                          Ted Camus  
  ARPAnet:   tac%cs.brown.edu@relay.cs.net             Box 1910 CS Dept
  BITnet:    tac@browncs.BITNET                        Brown University
`(Real (men) (use ,@(destructive)) ,functions)         Providence, RI 02912