From 45c263e891df94c19f658d36501733a829b4bb75 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 29 Dec 2002 07:03:27 +0000 Subject: [PATCH] r3689: *** empty log message *** --- debian/changelog | 6 ++++++ src.lisp | 7 +++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/debian/changelog b/debian/changelog index 6727233..338e4b2 100644 --- 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 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 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))) -- 2.34.1