[comp.lang.lisp] explode/implode

tac@sunup.cs.brown.edu (02/14/89)

(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