projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3689: *** empty log message ***
[cl-base64.git]
/
src.lisp
diff --git
a/src.lisp
b/src.lisp
index b6d5a8aa580f21c0f63faab7b314d34da7543aaf..be743fd3e21024d54385f1d70dc884df5aeee767 100644
(file)
--- a/
src.lisp
+++ b/
src.lisp
@@
-14,7
+14,7
@@
;;;; Copyright 2002-2003 Kevin M. Rosenberg
;;;; Permission to use with BSD-style license included in the COPYING file
;;;;
;;;; Copyright 2002-2003 Kevin M. Rosenberg
;;;; Permission to use with BSD-style license included in the COPYING file
;;;;
-;;;; $Id: src.lisp,v 1.
1 2002/12/29 06:14:49
kevin Exp $
+;;;; $Id: src.lisp,v 1.
2 2002/12/29 07:02:43
kevin Exp $
(defpackage #:base64
(:use #:cl)
(defpackage #:base64
(:use #:cl)
@@
-218,10
+218,9
@@
do
(cond
((char= char pad)
do
(cond
((char= char pad)
- (setq value (
the fixnum (ash value -2)
)))
+ (setq value (
ash value -2
)))
((minusp svalue)
(warn "Bad character ~W in base64 decode" char))
(t
((minusp svalue)
(warn "Bad character ~W in base64 decode" char))
(t
- (setq value (the fixnum
- (+ svalue (the fixnum (ash value 6))))))))
+ (setq value (+ svalue (ash value 6))))))
value)))
value)))