William James
4/22/2015 3:26:00 PM
Erann Gat wrote:
> (defun string->list (s) (read-from-string (concatenate 'string "(" s ")")))
Gauche Scheme:
(define (string->list s) (read-from-string (string-append "(" s ")")))
(string->list "abc ( 1 2 3) def")
===>
(abc (1 2 3) def)