r3689: *** empty log message ***

diff --git a/debian/changelog b/debian/changelog
index 6727233e4fb66271a6f618be7705db2648beed29..338e4b261185277e78b3a71778a412c2f0a65ce4 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -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

diff --git a/src.lisp b/src.lisp
index b6d5a8aa580f21c0f63faab7b314d34da7543aaf..be743fd3e21024d54385f1d70dc884df5aeee767 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)
@@ -218,10 +218,9 @@
         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)))