Added keyword synonyms for the current codecs.
authorFredrik Tolf <fredrik@dolda2000.com>
Thu, 11 Mar 2010 20:05:25 +0000 (21:05 +0100)
committerFredrik Tolf <fredrik@dolda2000.com>
Thu, 11 Mar 2010 20:05:25 +0000 (21:05 +0100)
charcode.lisp

index 6c08f42..dfe5a19 100644 (file)
 (define-encoder (ascii)
   #'encode-ascii)
 
+(define-codec-synonyms ascii :ascii)
+
 ;;; Latin-1
 
 (defun decode-latin-1 (byteseq charseq &key (start 0) (end (length byteseq)))
 (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
 
                        (setf mlen 0))))))))
       #'decode)))
 
-(define-codec-synonyms utf-8 utf8)
+(define-codec-synonyms utf-8 utf8 :utf-8 :utf8)