cl-ipp

Internet Printing Protocol (IPP) for Common Lisp
git clone https://logand.com/git/cl-ipp.git/
Log | Files | Refs
commit 5b0516797f2357922f67c2506409ae53784a1395
parent b637f2779d1bf89abf77307df38f431e8b9f33c2
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 10 Aug 2013 22:27:00 +0200

error for #-ccl

Diffstat:

Mipp.lisp | 6++++--


1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ipp.lisp b/ipp.lisp
@@ -28,10 +28,12 @@
 (in-package :ipp)
 
 (defun string-to-octets (x) ;; TODO encoding
-  (ccl:encode-string-to-octets x))
+  #+ccl(ccl:encode-string-to-octets x)
+  #-ccl(error "TODO port IPP::STRING-TO-OCTETS"))
 
 (defun octets-to-string (x) ;; TODO encoding
-  (ccl:decode-string-from-octets x))
+  #+ccl(ccl:decode-string-from-octets x)
+  #-ccl(error "TODO port IPP::OCTETS-TO-STRING"))
 
 (defun tag (x)
   (let ((tags '((#x01 . :operation-attributes-tag)