X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=encode.lisp;h=0665ac941b49c50ac3d311d3ce5367868c54b800;hp=f3791aad7867651a608f65fb96a2280f7bdc1dce;hb=40ec3691b42a304a3d7cb416696c84f100a50f2e;hpb=748abc42f3b57c8ba74437121d22f7418b8b7a13

diff --git a/encode.lisp b/encode.lisp
index f3791aa..0665ac9 100644
--- a/encode.lisp
+++ b/encode.lisp
@@ -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."