Dolda2000 GitWeb
/
lisp-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
75545f6
)
Added keyword synonyms for the current codecs.
author
Fredrik Tolf
<fredrik@dolda2000.com>
Thu, 11 Mar 2010 20:05:25 +0000
(21:05 +0100)
committer
Fredrik Tolf
<fredrik@dolda2000.com>
Thu, 11 Mar 2010 20:05:25 +0000
(21:05 +0100)
charcode.lisp
patch
|
blob
|
blame
|
history
diff --git
a/charcode.lisp
b/charcode.lisp
index
6c08f42
..
dfe5a19
100644
(file)
--- a/
charcode.lisp
+++ b/
charcode.lisp
@@
-241,6
+241,8
@@
(define-encoder (ascii)
#'encode-ascii)
(define-encoder (ascii)
#'encode-ascii)
+(define-codec-synonyms ascii :ascii)
+
;;; Latin-1
(defun decode-latin-1 (byteseq charseq &key (start 0) (end (length byteseq)))
;;; Latin-1
(defun decode-latin-1 (byteseq charseq &key (start 0) (end (length byteseq)))
@@
-278,7
+280,7
@@
(define-encoder (latin-1)
#'encode-latin-1)
(define-encoder (latin-1)
#'encode-latin-1)
-(define-codec-synonyms latin-1 latin1 iso-8859-1)
+(define-codec-synonyms latin-1 latin1 iso-8859-1
:latin-1 :latin1 :iso-8859-1
)
;;; UTF-8
;;; UTF-8
@@
-362,4
+364,4
@@
(setf mlen 0))))))))
#'decode)))
(setf mlen 0))))))))
#'decode)))
-(define-codec-synonyms utf-8 utf8)
+(define-codec-synonyms utf-8 utf8
:utf-8 :utf8
)