From f8eaaa29f361170fd67519525a45cb21dd258691 Mon Sep 17 00:00:00 2001 From: Fredrik Tolf Date: Thu, 11 Mar 2010 21:05:25 +0100 Subject: [PATCH] Added keyword synonyms for the current codecs. --- charcode.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/charcode.lisp b/charcode.lisp index 6c08f42..dfe5a19 100644 --- a/charcode.lisp +++ b/charcode.lisp @@ -241,6 +241,8 @@ (define-encoder (ascii) #'encode-ascii) +(define-codec-synonyms ascii :ascii) + ;;; 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-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 @@ -362,4 +364,4 @@ (setf mlen 0)))))))) #'decode))) -(define-codec-synonyms utf-8 utf8) +(define-codec-synonyms utf-8 utf8 :utf-8 :utf8) -- 2.11.0