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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Feb 12 01:56:43 2013
New Revision: 14367

Log:
Restore proper compilation of digest functions.

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	Mon Feb 11 11:05:51 2013	(r14366)
+++ trunk/abcl/src/org/armedbear/lisp/digest.lisp	Tue Feb 12 01:56:43 2013	(r14367)
@@ -77,7 +77,7 @@
            
 (defgeneric digest (resource &key (digest 'sha-256))
   (:documentation "Digest byte based resource at RESOURCE."))
-(defun digest-path (path) (asciify-digest (digest path 'nio 'sha-256)))
+(defun digest-path (path) (asciify (digest path 'nio 'sha-256)))
 
 (defvar *digest-types* 
   '((sha-1 . "SHA-1")