Changeset 14199

Timestamp:

10/14/12 18:43:24 (9 years ago)

Author:

rschlatte

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/digest.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/digest.lisp

@@ -39 +39 @@
 (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
@@ -53 +52 @@
                            (mapcar (lambda (p)
                                      (funcall #'digest p 'nio))
-                                   paths)))))
-    ((null paths)
-     nil)))))
+                                   paths-or-strings)))))
+    ((null paths-or-strings)
+     nil)))