Author: mhenoch Date: Thu Aug 23 23:38:04 2007 New Revision: 121 Modified: cl-darcs/trunk/cl-darcs.asd cl-darcs/trunk/patchinfo.lisp cl-darcs/trunk/send.lisp Log: Ironclad's SHA1 works with CLISP now Modified: cl-darcs/trunk/cl-darcs.asd ============================================================================== --- cl-darcs/trunk/cl-darcs.asd (original) +++ cl-darcs/trunk/cl-darcs.asd Thu Aug 23 23:38:04 2007 @@ -17,8 +17,6 @@ ;; SHA1, hex etc :ironclad :flexi-streams - ;; Ironclad's SHA1 doesn't work with CLISP yet - #+clisp :sb-sha1 ;; Files and directories :cl-fad ;; Regexps Modified: cl-darcs/trunk/patchinfo.lisp ============================================================================== --- cl-darcs/trunk/patchinfo.lisp (original) +++ cl-darcs/trunk/patchinfo.lisp Thu Aug 23 23:38:04 2007 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006 Magnus Henoch +;;; Copyright (C) 2006, 2007 Magnus Henoch ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -24,8 +24,7 @@ (defun patchinfo-make-filename (patchinfo) (with-slots (date name author log inverted) patchinfo (labels ((sha1-internal (bytes) - #+clisp (sb-sha1:sha1sum-sequence bytes) - #-clisp (ironclad:digest-sequence :sha1 bytes)) + (ironclad:digest-sequence :sha1 bytes)) (sha1 (str) (ironclad:byte-array-to-hex-string (sha1-internal Modified: cl-darcs/trunk/send.lisp ============================================================================== --- cl-darcs/trunk/send.lisp (original) +++ cl-darcs/trunk/send.lisp Thu Aug 23 23:38:04 2007 @@ -107,5 +107,4 @@ :element-type '(unsigned-byte 8) :initial-contents patches-as-vector)) (ironclad:byte-array-to-hex-string - #+clisp (sb-sha1:sha1sum-sequence patches-as-vector) - #-clisp (ironclad:digest-sequence :sha1 patches-as-vector)))) + (ironclad:digest-sequence :sha1 patches-as-vector))))