;;;; 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))
(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))))