schemeだとこんな感じかな
(define (explode sym)
  (map (lambda(c) (string->symbol(string c)))
       (string->list(symbol->string sym)))
)
(define (inplode sym-list)
  (string->symbol (apply string
    (flatten (map (lambda(s)(string->list(symbol->string s)))
                  sym-list))
  ))
)