cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

commit e4f4f7c05a099c380cdf558eab956a590e0f5a57
parent 317831950795c10fa8ac2242bea21b4c3e726b54
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 21 Sep 2014 10:27:01 +0200

ccl portability

Diffstat:
Mder.lisp | 8++++++--
1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/der.lisp b/der.lisp @@ -41,14 +41,18 @@ ;; http://serverfault.com/questions/9708/what-is-a-pem-file-and-how-does-it-differ-from-other-openssl-generated-key-file (defun octets-to-utf8-string (x) - #-(or sbcl) + #-(or ccl sbcl) (error "TODO port RW.DER::OCTETS-TO-UTF8-STRING") + #+ccl + (ccl:decode-string-from-octets x :external-format :utf-8) #+sbcl (sb-ext:octets-to-string x :external-format :utf-8)) (defun utf8-string-to-octets (x) - #-(or sbcl) + #-(or ccl sbcl) (error "TODO port RW.DER::UTF8-STRING-TO-OCTETS") + #+ccl + (ccl:encode-string-to-octets x :external-format :utf-8) #+sbcl (sb-ext:string-to-octets x :external-format :utf-8))