Skip to content
Snippets Groups Projects
Commit 40ec3691 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

r4852: Auto commit for Debian build

parent 748abc42
No related branches found
No related tags found
No related merge requests found
......@@ -7,14 +7,12 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
;;;; $Id: base64-tests.lisp,v 1.12 2003/04/15 16:24:37 kevin Exp $
;;;; $Id: base64-tests.lisp,v 1.13 2003/05/06 16:19:51 kevin Exp $
;;;; *************************************************************************
(in-package :cl-user)
(defpackage #:base64-test
(:use #:cl #:kmrcl #:base64))
(defpackage #:base64-test (:use #:cl #:kmrcl #:base64))
(in-package #:base64-test)
(defun test-base64 ()
......
......@@ -7,13 +7,10 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; $Id: base64.asd,v 1.19 2003/04/15 16:21:43 kevin Exp $
;;;; $Id: base64.asd,v 1.20 2003/05/06 16:19:51 kevin Exp $
;;;; *************************************************************************
(in-package :asdf)
(cl:defpackage #:base64-system
(:use #:asdf #:cl))
(cl:defpackage #:base64-system (:use #:asdf #:cl))
(cl:in-package #:base64-system)
......@@ -25,9 +22,6 @@
:licence "BSD-style"
:description "Base64 encoding and decoding with URI support."
:perform (load-op :after (op base64)
(pushnew :base64 cl:*features*))
;; depends-on only needed for test-op
:depends-on (:kmrcl)
......
cl-base64 (3.2-1) unstable; urgency=low
* Improve .asd file
-- Kevin M. Rosenberg <kmr@debian.org> Tue, 6 May 2003 10:19:22 -0600
cl-base64 (3.1-1) unstable; urgency=low
* Implement asdf:test-op. Remove old base64-test.asd file.
......
......@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; $Id: decode.lisp,v 1.4 2003/01/14 11:59:44 kevin Exp $
;;;; $Id: decode.lisp,v 1.5 2003/05/06 16:21:06 kevin Exp $
;;;;
;;;; This file implements the Base64 transfer encoding algorithm as
;;;; defined in RFC 1521 by Borensten & Freed, September 1993.
......@@ -19,10 +19,12 @@
;;;; Permission to use with BSD-style license included in the COPYING file
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package #:cl-base64)
(eval-when (:compile-toplevel)
(declaim (optimize (space 0) (speed 3) (safety 1) (compilation-speed 0))))
(declaim (inline whitespace-p))
(defun whitespace-p (c)
"Returns T for a whitespace character."
......
......@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
;;;; $Id: encode.lisp,v 1.5 2003/01/14 11:59:44 kevin Exp $
;;;; $Id: encode.lisp,v 1.6 2003/05/06 16:21:06 kevin Exp $
;;;;
;;;; This file implements the Base64 transfer encoding algorithm as
;;;; defined in RFC 1521 by Borensten & Freed, September 1993.
......@@ -19,8 +19,6 @@
;;;; Permission to use with BSD-style license included in the COPYING file
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
;;;; Extended by Kevin M. Rosenberg <kevin@rosenberg.net>:
;;;; - .asd file
;;;; - numerous speed optimizations
......@@ -28,10 +26,13 @@
;;;; - Renamed functions now that supporting integer conversions
;;;; - URI-compatible encoding using :uri key
;;;;
;;;; $Id: encode.lisp,v 1.5 2003/01/14 11:59:44 kevin Exp $
;;;; $Id: encode.lisp,v 1.6 2003/05/06 16:21:06 kevin Exp $
(in-package #:cl-base64)
(eval-when (:compile-toplevel)
(declaim (optimize (space 0) (speed 3) (safety 1) (compilation-speed 0))))
(defun round-next-multiple (x n)
"Round x up to the next highest multiple of n."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment