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