[Cl-darcs-cvs] r102 - cl-darcs/trunk

Author: mhenoch Date: Sat Mar 10 15:39:19 2007 New Revision: 102 Modified: cl-darcs/trunk/util.lisp Log: Fix off-by-ten error in HEX-TO-NUMBER Modified: cl-darcs/trunk/util.lisp ============================================================================== --- cl-darcs/trunk/util.lisp (original) +++ cl-darcs/trunk/util.lisp Sat Mar 10 15:39:19 2007 @@ -47,9 +47,9 @@ ((<= (char-code #\0) c (char-code #\9)) (- c (char-code #\0))) ((<= (char-code #\A) c (char-code #\F)) - (- c (char-code #\A))) + (+ 10 (- c (char-code #\A)))) ((<= (char-code #\a) c (char-code #\f)) - (- c (char-code #\a))) + (+ 10 (- c (char-code #\a)))) (t (error "Invalid hex digit ~A." c))))