X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=test.lisp;h=1518f35ee324c0a56b5d12cc57bd130c343a144a;hp=a21da95a65c2c9c906065d228a060f1f0cb764af;hb=a4e59508bad5ab81e0e25aa6d49d49e110be9ba0;hpb=98dfcc6acae8710d4577652fcb2b7c12ee86da22

diff --git a/test.lisp b/test.lisp
index a21da95..1518f35 100644
--- a/test.lisp
+++ b/test.lisp
@@ -7,10 +7,10 @@
 ;;;; 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.3 2003/06/12 14:05:11 kevin Exp $
 ;;;; *************************************************************************
 
-(in-package :cl-user)
+(in-package #:cl-user)
 
 (defpackage #:base64-test
   (:use #:cl #:kmrcl #:base64 #:util.test))
@@ -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))))