[armedbear-cvs] r14308 - branches/1.1.x/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Dec  7 02:53:49 2012
New Revision: 14308

Log:
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.

Modified:
   branches/1.1.x/src/org/armedbear/lisp/digest.lisp

Modified: branches/1.1.x/src/org/armedbear/lisp/digest.lisp
==============================================================================
--- branches/1.1.x/src/org/armedbear/lisp/digest.lisp	Fri Dec  7 02:44:09 2012	(r14307)
+++ branches/1.1.x/src/org/armedbear/lisp/digest.lisp	Fri Dec  7 02:53:49 2012	(r14308)
@@ -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 cryptographic digest initiated.") ;; TODO Need tests with some tool for verification
   (let ((first (first paths-or-strings))
         (rest (rest paths-or-strings)))
     (concatenate 'string