X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=src.lisp;fp=src.lisp;h=be743fd3e21024d54385f1d70dc884df5aeee767;hp=b6d5a8aa580f21c0f63faab7b314d34da7543aaf;hb=45c263e891df94c19f658d36501733a829b4bb75;hpb=229b31c349c855d7d7374be27ab420530b5d6e90

diff --git a/src.lisp b/src.lisp
index b6d5a8a..be743fd 100644
--- 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)))