cl-rw

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

ccl portability

Diffstat:
M
der.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))