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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Sun Oct 14 11:43:24 2012
New Revision: 14199

Log:
Restore build harder.

- sha256 was corrupted (truncated line in typecase form), kludged into
  compiling without trying to guess what the form was supposed to be

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	Sun Oct 14 03:55:11 2012	(r14198)
+++ trunk/abcl/src/org/armedbear/lisp/digest.lisp	Sun Oct 14 11:43:24 2012	(r14199)
@@ -38,23 +38,22 @@
                   (java::list-from-jarray digest))))
 (export 'sha256 :system)
 (defun sha256 (&rest paths-or-strings)
-  (format *debug-io* "~&Args: ~S~&" paths-or-strings)
   (cond 
     ((= 1 (length paths-or-strings))
      (typecase paths-or-strings
        (pathname
-        (ascii-digest (digest (first paths) 'nio)))
-       (string 
+        (ascii-digest (digest (first paths-or-strings) 'nio)))
+       (string (error "Somebody implement me please")))) ; FIXME
         
-    ((consp paths)
+    ((consp paths-or-strings)
      (concatenate 'string
                   (append
                    (mapcar #'ascii-digest
                            (mapcar (lambda (p)
                                      (funcall #'digest p 'nio))
-                                   paths)))))
-    ((null paths)
-     nil)))))
+                                   paths-or-strings)))))
+    ((null paths-or-strings)
+     nil)))
                                       
            
 (defgeneric digest (url algorithim  &optional (digest 'sha-256))