r3689: *** empty log message ***

[cl-base64.git] / src.lisp

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
 ;;;;
 ;;;; 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)
 
 (defpackage #:base64
   (:use #:cl)


@@ -218,10 +218,9 @@
         do
           (cond
             ((char= char pad)
         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
             ((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)))
       value)))