Changeset 14199


Ignore:
Timestamp:
10/14/12 18:43:24 (8 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/digest.lisp

    r14198 r14199  
    3939(export 'sha256 :system)
    4040(defun sha256 (&rest paths-or-strings)
    41   (format *debug-io* "~&Args: ~S~&" paths-or-strings)
    4241  (cond
    4342    ((= 1 (length paths-or-strings))
    4443     (typecase paths-or-strings
    4544       (pathname
    46         (ascii-digest (digest (first paths) 'nio)))
    47        (string
     45        (ascii-digest (digest (first paths-or-strings) 'nio)))
     46       (string (error "Somebody implement me please")))) ; FIXME
    4847       
    49     ((consp paths)
     48    ((consp paths-or-strings)
    5049     (concatenate 'string
    5150                  (append
     
    5352                           (mapcar (lambda (p)
    5453                                     (funcall #'digest p 'nio))
    55                                    paths)))))
    56     ((null paths)
    57      nil)))))
     54                                   paths-or-strings)))))
     55    ((null paths-or-strings)
     56     nil)))
    5857                                     
    5958           
Note: See TracChangeset for help on using the changeset viewer.