Changeset 14199
- Timestamp:
- 10/14/12 18:43:24 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/digest.lisp
r14198 r14199 39 39 (export 'sha256 :system) 40 40 (defun sha256 (&rest paths-or-strings) 41 (format *debug-io* "~&Args: ~S~&" paths-or-strings)42 41 (cond 43 42 ((= 1 (length paths-or-strings)) 44 43 (typecase paths-or-strings 45 44 (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 48 47 49 ((consp paths )48 ((consp paths-or-strings) 50 49 (concatenate 'string 51 50 (append … … 53 52 (mapcar (lambda (p) 54 53 (funcall #'digest p 'nio)) 55 paths )))))56 ((null paths )57 nil))) ))54 paths-or-strings))))) 55 ((null paths-or-strings) 56 nil))) 58 57 59 58
Note: See TracChangeset
for help on using the changeset viewer.