Changeset 14306

Timestamp:

12/07/12 10:38:15 (8 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/digest.lisp (modified) (1 diff)

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

@@ -43 +43 @@
 (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)))