Changeset 14308 for branches/1.1.x/src/org/armedbear/lisp/digest.lisp

Timestamp:

12/07/12 10:53:49 (8 years ago)

Author:

Mark Evenson

Message:

Backport r14307 | mevenson | 2012-12-07 11:44:09 +0100 (Fri, 07 Dec 2012) | 1 line
Backport r14306 | mevenson | 2012-12-07 11:38:15 +0100 (Fri, 07 Dec 2012) | 1 line

digest: spellcheck emitted warning.

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

File:

• branches/1.1.x/src/org/armedbear/lisp/digest.lisp (modified) (1 diff)

branches/1.1.x/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 cryptographic digest initiated.") ;; TODO Need tests with some tool for verification
   (let ((first (first paths-or-strings))
         (rest (rest paths-or-strings)))