From 092e254263572632e3afd28e47bdcc32b8c555c4 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" 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 Sat, 4 Jan 2003 06:40:32 -0700 + -- Kevin M. Rosenberg 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)))) -- 2.34.1