X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=strings.lisp;h=8eb08f74e9faa7ac1b243ee78988db6b2a239444;hp=e9a73a3c9c7f1c3041680fc6cc9b5466bb08fe03;hb=2f65fd6d93691f3943182138efd2013c3fdb67c7;hpb=e2450e52a0813b8583395d7ac88f24e896f46e13

diff --git a/strings.lisp b/strings.lisp
index e9a73a3..8eb08f7 100644
--- a/strings.lisp
+++ b/strings.lisp
@@ -627,3 +627,10 @@ for characters in a string"
 	 (t
 	  (setq in-white nil)
 	  (write-char c stream)))))))
+
+(defun string->list (string)
+  (let ((eof (list nil)))
+    (with-input-from-string (stream string)
+      (do ((x (read stream nil eof) (read stream nil eof))
+           (l nil (cons x l)))
+          ((eq x eof) (nreverse l))))))