Commit [b972f3] Maximize Restore History

move md5 tostringproc, update stringproc doc

Volker van Nek Volker van Nek 2013-08-03

changed doc
changed doc/info
changed doc/info/de
changed doc/info/de/stringproc.de.texi
changed doc/info/stringproc.texi
changed share
changed share/contrib
changed share/contrib/gf
changed share/stringproc
copied share/contrib/gf/md5.lisp -> share/stringproc/md5.lisp
doc
Directory.
doc/info
Directory.
doc/info/de
Directory.
doc/info/de/stringproc.de.texi Diff Switch to side-by-side view
Loading...
doc/info/stringproc.texi Diff Switch to side-by-side view
Loading...
share
Directory.
share/contrib
Directory.
share/contrib/gf
Directory.
share/stringproc
Directory.
share/contrib/gf/md5.lisp to share/stringproc/md5.lisp
--- a/share/contrib/gf/md5.lisp
+++ b/share/stringproc/md5.lisp
@@ -23,7 +23,7 @@
    md5sum(string) returns the md5 checksum of a string. 
    
    The return value is a string to guarantee 32 hex characters. To parse it 
-   into an integer please set the input base to 16 and prefix the string by '0'.
+   into an integer please set the input base to 16 and prefix the string by zero.
    
    (%i2) string : md5sum("foo bar baz");
    (%o2)                  ab07acbb1e496801937adfa772424bf7
@@ -147,6 +147,8 @@
 
 
 (defmfun $md5sum (s)
+  (unless (stringp s)
+    (merror "`md5sum': Argument must be a string.") )
   (let* ((bytes (mapcar #'(lambda (ch) (char-code ch)) (coerce s 'list)))
          (len (length bytes)) )
     (setq *a5* #x67452301