projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5109: Auto commit for Debian build
[cl-base64.git]
/
base64-tests.lisp
diff --git
a/base64-tests.lisp
b/base64-tests.lisp
index 26004f4f9becfdf8d4a5a2a0fb2d3880559b23ea..d1589aacfafa6e3fb534d2cf451f7f90b5976872 100644
(file)
--- a/
base64-tests.lisp
+++ b/
base64-tests.lisp
@@
-7,12
+7,13
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
-;;;; $Id: base64-tests.lisp,v 1.1
3 2003/05/06 16:19:5
1 kevin Exp $
+;;;; $Id: base64-tests.lisp,v 1.1
4 2003/06/12 14:05:1
1 kevin Exp $
;;;; *************************************************************************
;;;; *************************************************************************
-(in-package :cl-user)
-
-(defpackage #:base64-test (:use #:cl #:kmrcl #:base64))
+(in-package #:cl-user)
+(defpackage #:base64-test
+ (:use #:cl #:kmrcl #:base64)
+ (:export #:test-base64))
(in-package #:base64-test)
(defun test-base64 ()
(in-package #:base64-test)
(defun test-base64 ()
@@
-71,5
+72,4
@@
#+allegro
(time-iterations n (excl:usb8-array-to-base64-string usb8))))
#+allegro
(time-iterations n (excl:usb8-array-to-base64-string usb8))))
-(export 'test-base64)
;;(test-base64)
;;(test-base64)