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

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Feb 13 11:47:13 2013
New Revision: 14376

Log:
Backport r14367 | mevenson | 2013-02-12 10:56:43 +0100 (Tue, 12 Feb 2013) | 1 line

Restore proper compilation of digest functions.

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	Wed Feb 13 11:39:04 2013	(r14375)
+++ branches/1.1.x/src/org/armedbear/lisp/digest.lisp	Wed Feb 13 11:47:13 2013	(r14376)
@@ -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")