r3689: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 29 Dec 2002 07:03:27 +0000 (07:03 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Sun, 29 Dec 2002 07:03:27 +0000 (07:03 +0000)
debian/changelog
src.lisp

index 6727233..338e4b2 100644 (file)
@@ -1,3 +1,9 @@
+cl-base64 (1.2-1) unstable; urgency=low
+
+  * Bug fix in base64-to-integer
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun, 29 Dec 2002 00:03:11 -0700
+
 cl-base64 (1.1-1) unstable; urgency=low
 
   * Rewritten version, significant optimizations
index b6d5a8a..be743fd 100644 (file)
--- a/src.lisp
+++ b/src.lisp
@@ -14,7 +14,7 @@
 ;;;; Copyright 2002-2003 Kevin M. Rosenberg
 ;;;; Permission to use with BSD-style license included in the COPYING file
 ;;;;
-;;;; $Id: src.lisp,v 1.1 2002/12/29 06:14:49 kevin Exp $
+;;;; $Id: src.lisp,v 1.2 2002/12/29 07:02:43 kevin Exp $
 
 (defpackage #:base64
   (:use #:cl)
         do
           (cond
             ((char= char pad)
-             (setq value (the fixnum (ash value -2))))
+             (setq value (ash value -2)))
             ((minusp svalue)
              (warn "Bad character ~W in base64 decode" char))
             (t
-             (setq value (the fixnum
-                           (+ svalue (the fixnum (ash value 6))))))))
+             (setq value (+ svalue (ash value 6))))))
       value)))