From: ···@sunup.cs.brown.edu
Subject: explode/implode
Date: 
Message-ID: <189@brunix.UUCP>
(defun explode (x)
   (mapcar #'intern (mapcar #'string (coerce (string x) 'list))))

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

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