1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: ASDF definition file for Base64
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Dec 2002
11 ;;;; *************************************************************************
13 (in-package #:cl-user)
14 (defpackage #:base64-system (:use #:asdf #:cl))
15 (in-package #:base64-system)
20 :author "Kevin M. Rosenberg based on initial code by Juri Pakaste"
22 :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
24 :description "Base64 encoding and decoding with URI support."
26 ;; depends-on only needed for test-op
31 (:file "encode" :depends-on ("package"))
32 (:file "decode" :depends-on ("package"))
35 (defmethod perform ((o test-op) (c (eql (find-system 'base64))))
36 (operate 'load-op 'base64-tests)
37 (operate 'test-op 'base64-tests :force t))
39 (defsystem base64-tests
40 :depends-on (base64 ptester)
44 (defmethod perform ((o test-op) (c (eql (find-system 'base64-tests))))
45 (operate 'load-op 'base64-tests)
46 (or (funcall (intern (symbol-name '#:do-tests)
47 (find-package 'base64-test)))
48 (error "test-op failed")))