[armedbear-cvs] r14306 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Dec  7 02:38:15 2012
New Revision: 14306

Log:
digest: warn that digest implementation does not currently have valid tests.

Modified:
   trunk/abcl/src/org/armedbear/lisp/digest.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/digest.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/digest.lisp	Thu Dec  6 13:20:34 2012	(r14305)
+++ trunk/abcl/src/org/armedbear/lisp/digest.lisp	Fri Dec  7 02:38:15 2012	(r14306)
@@ -42,6 +42,7 @@
 ;;;; bytes, running digest over that concatentation
 (defun sha256 (&rest paths-or-strings) ;;; XXX more than one arg is very broken.
   "Returned ASCIIfied representation of SHA256 digest of byte-based resource at PATHS-OR-STRINGs." 
+  (warn "Unaudited computatation of cryptograhpical digest initiated.") ;; TODO Need tests with some tool for verification
   (let ((first (first paths-or-strings))
         (rest (rest paths-or-strings)))
     (concatenate 'string