From 092e254263572632e3afd28e47bdcc32b8c555c4 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Mon, 13 Jan 2003 21:56:04 +0000
Subject: [PATCH] r3751: *** empty log message ***

---
 debian/changelog | 2 +-
 test.lisp        | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index fb13c48..71a38ed 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -7,7 +7,7 @@ cl-base64 (3.0.0-1) unstable; urgency=low
   * Fix error in integer-to-base64 when using columns
   * Add base64-test.asd and test.lisp regression suite
 
- -- Kevin M. Rosenberg <kmr@debian.org>  Sat,  4 Jan 2003 06:40:32 -0700
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 13 Jan 2003 14:41:52 -0700
 
 cl-base64 (2.1.0-1) unstable; urgency=low
 
diff --git a/test.lisp b/test.lisp
index a21da95..21abfab 100644
--- a/test.lisp
+++ b/test.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jan 2003
 ;;;;
-;;;; $Id: test.lisp,v 1.1 2003/01/13 21:39:46 kevin Exp $
+;;;; $Id: test.lisp,v 1.2 2003/01/13 21:56:04 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package :cl-user)
@@ -66,9 +66,9 @@
 	 (usb8 (string-to-usb8-array str))
 	 (int 12345678901234567890)
 	 (n 50000))
-    (time-iterations n (integer-to-base64 int))
+    (time-iterations n (integer-to-base64-string int))
     (time-iterations n (excl:integer-to-base64-string int))
-    (time-iterations n (string-to-base64 str))
+    (time-iterations n (string-to-base64-string str))
     (time-iterations n (excl:usb8-array-to-base64-string usb8))))
 
       
-- 
GitLab