Re: How to write implode and explode?

Subject: Re: How to write implode and explode?
From: Erik Naggum <erik@naggum.no>
Date: 1998/10/13
Newsgroups: comp.lang.lisp
Message-ID: <3117311418185126@naggum.no>

* Josh Gardner <jgard@dowco.com>
| I'm stuck on a bit of a problem: I need to write an implode function -
| takes '(H e l l o) and gives back 'Hello. and I need to write an explode
| function - takes 'Hello and returns '(H e l l o)

  OK, so it's probably homework, yet here's what I'd do, but I'm certain
  that you won't be allowed to hand this in, anyway, so it's safe to give
  you this "answer".

(defun explode (symbol)
  (map 'list (lambda (character) (intern (string character) #.*package*))
       (symbol-name symbol)))

(defun implode (list)
  (intern (map 'string #'character list) #.*package*))

#:Erik