From: Kevin M. Rosenberg Date: Sun, 18 Apr 2004 16:40:17 +0000 (+0000) Subject: r9053: rename system X-Git-Tag: v3.3.2~13 X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=commitdiff_plain;h=8cf30dbe0a946abe7872251eb6bbdfc2850bc4d4 r9053: rename system --- diff --git a/base64.asd b/base64.asd deleted file mode 100644 index f50650b..0000000 --- a/base64.asd +++ /dev/null @@ -1,48 +0,0 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: base64.asd -;;;; Purpose: ASDF definition file for Base64 -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Dec 2002 -;;;; -;;;; $Id$ -;;;; ************************************************************************* - -(in-package #:cl-user) -(defpackage #:base64-system (:use #:asdf #:cl)) -(in-package #:base64-system) - - -(defsystem base64 - :name "cl-base64" - :author "Kevin M. Rosenberg based on initial code by Juri Pakaste" - :version "3.1" - :maintainer "Kevin M. Rosenberg " - :licence "BSD-style" - :description "Base64 encoding and decoding with URI support." - - ;; depends-on only needed for test-op - :depends-on (:kmrcl) - - :components - ((:file "package") - (:file "encode" :depends-on ("package")) - (: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)) - -(defsystem base64-tests - :depends-on (base64 ptester) - :components - ((:file "tests"))) - -(defmethod perform ((o test-op) (c (eql (find-system 'base64-tests)))) - (operate 'load-op 'base64-tests) - (or (funcall (intern (symbol-name '#:do-tests) - (find-package 'base64-test))) - (error "test-op failed"))) diff --git a/cl-base64.asd b/cl-base64.asd new file mode 100644 index 0000000..219ddd5 --- /dev/null +++ b/cl-base64.asd @@ -0,0 +1,48 @@ +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: cl-base64.asd +;;;; Purpose: ASDF definition file for Cl-Base64 +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Dec 2002 +;;;; +;;;; $Id$ +;;;; ************************************************************************* + +(in-package #:cl-user) +(defpackage #:cl-base64-system (:use #:asdf #:cl)) +(in-package #:cl-base64-system) + + +(defsystem cl-base64 + :name "cl-base64" + :author "Kevin M. Rosenberg based on initial code by Juri Pakaste" + :version "3.1" + :maintainer "Kevin M. Rosenberg " + :licence "BSD-style" + :description "Base64 encoding and decoding with URI support." + + ;; depends-on only needed for test-op + :depends-on (:kmrcl) + + :components + ((:file "package") + (:file "encode" :depends-on ("package")) + (:file "decode" :depends-on ("package")) + )) + +(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 cl-base64-tests + :depends-on (cl-base64 ptester) + :components + ((:file "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 '#: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")