On Lisp Common Lisp to Scheme 8

Figure 4.8: Functions which operate on symbols and strings.

(define mkstr
  (lambda args
    (call-with-output-string
      (lambda (s)
        (dolist (a args) (display a s))))))
        
(define symb
  (lambda args
    (string->symbol (apply mkstr args))))
    
(define reread
  (lambda args
    (read-from-string (apply mkstr args))))
    
(define explode
  (lambda (sym)
    (map (lambda (x) (string->symbol (string x)))
         (string->list (symbol->string sym)))))