From 8cf30dbe0a946abe7872251eb6bbdfc2850bc4d4 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
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 <kmr@debian.org>  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 <kmr@debian.org>
 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")
-- 
GitLab