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

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))))))