From 8cf30dbe0a946abe7872251eb6bbdfc2850bc4d4 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 18 Apr 2004 16:40:17 +0000 Subject: [PATCH] r9053: rename system --- base64.asd => cl-base64.asd | 26 +++++++++++++------------- debian/changelog | 6 ++++++ debian/control | 2 +- tests.lisp | 6 +++--- 4 files changed, 23 insertions(+), 17 deletions(-) rename base64.asd => cl-base64.asd (61%) diff --git a/base64.asd b/cl-base64.asd similarity index 61% rename from base64.asd rename to cl-base64.asd index f50650b..219ddd5 100644 --- a/base64.asd +++ b/cl-base64.asd @@ -2,8 +2,8 @@ ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; -;;;; Name: base64.asd -;;;; Purpose: ASDF definition file for Base64 +;;;; Name: cl-base64.asd +;;;; Purpose: ASDF definition file for Cl-Base64 ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Dec 2002 ;;;; @@ -11,11 +11,11 @@ ;;;; ************************************************************************* (in-package #:cl-user) -(defpackage #:base64-system (:use #:asdf #:cl)) -(in-package #:base64-system) +(defpackage #:cl-base64-system (:use #:asdf #:cl)) +(in-package #:cl-base64-system) -(defsystem base64 +(defsystem cl-base64 :name "cl-base64" :author "Kevin M. Rosenberg based on initial code by Juri Pakaste" :version "3.1" @@ -32,17 +32,17 @@ (:file "decode" :depends-on ("package")) )) -(defmethod perform ((o test-op) (c (eql (find-system 'base64)))) - (operate 'load-op 'base64-tests) - (operate 'test-op 'base64-tests :force t)) +(defmethod perform ((o test-op) (c (eql (find-system 'cl-base64)))) + (operate 'load-op 'cl-base64-tests) + (operate 'test-op 'cl-base64-tests :force t)) -(defsystem base64-tests - :depends-on (base64 ptester) +(defsystem cl-base64-tests + :depends-on (cl-base64 ptester) :components ((:file "tests"))) -(defmethod perform ((o test-op) (c (eql (find-system 'base64-tests)))) - (operate 'load-op 'base64-tests) +(defmethod perform ((o test-op) (c (eql (find-system 'cl-base64-tests)))) + (operate 'load-op 'cl-base64-tests) (or (funcall (intern (symbol-name '#:do-tests) - (find-package 'base64-test))) + (find-package '#:cl-base64-tests))) (error "test-op failed"))) diff --git a/debian/changelog b/debian/changelog index 6f159e1..cec7203 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-base64 (3.3.1-1) unstable; urgency=low + + * Rename ASDF system to cl-base64 + + -- Kevin M. Rosenberg Sun, 18 Apr 2004 10:39:51 -0600 + cl-base64 (3.3-1) unstable; urgency=low * Rework test loading diff --git a/debian/control b/debian/control index 53e69a5..a68f054 100644 --- a/debian/control +++ b/debian/control @@ -3,7 +3,7 @@ Section: devel Priority: optional Maintainer: Kevin M. Rosenberg Build-Depends-Indep: debhelper (>= 4.0.0) -Standards-Version: 3.5.10.0 +Standards-Version: 3.6.1.0 Package: cl-base64 Architecture: all diff --git a/tests.lisp b/tests.lisp index 9c0d4f5..e080240 100644 --- a/tests.lisp +++ b/tests.lisp @@ -12,10 +12,10 @@ (in-package #:cl-user) -(defpackage #:base64-test - (:use #:cl #:kmrcl #:base64 #:ptester)) +(defpackage #:base64-tests + (:use #:cl #:kmrcl #:cl-base64 #:ptester)) -(in-package #:base64-test) +(in-package #:cl-base64-test) (defun do-tests () (with-tests (:name "cl-base64 tests") -- 2.34.1