diff --git a/debian/changelog b/debian/changelog index fb13c48003e6636bf34b34525eac444bd03084bc..71a38ed6325ed6153d26ecc67c475a3b21418161 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 a21da95a65c2c9c906065d228a060f1f0cb764af..21abfab240be36428ef5c5cd338907b72706313f 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))))