r8447: add string->list

diff --git a/debian/changelog b/debian/changelog
index 7a6703fdc12491d6ae5ce7646a3f1400412c699a..b14d4929b9fbe58f4e12bea8eaa1184b330724c3 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-kmrcl (1.62-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Thu,  1 Jan 2004 06:01:10 -0700
+
 cl-kmrcl (1.61-1) unstable; urgency=low
 
   * New upstream

diff --git a/package.lisp b/package.lisp
index bba5fb8582082fe25be7731476e08761d23c9e05..417005643c422336738aae4decadef86c4b9bceb 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -68,7 +68,8 @@
    #:string-maybe-shorten
    #:shrink-vector
    #:collapse-whitespace
-   
+   #:string->list
+
    ;; io.lisp
    #:indent-spaces
    #:indent-html-spaces

diff --git a/strings.lisp b/strings.lisp
index e9a73a3c9c7f1c3041680fc6cc9b5466bb08fe03..8eb08f74e9faa7ac1b243ee78988db6b2a239444 100644 (file)
--- 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))))))