cl-ipp

Internet Printing Protocol (IPP) for Common Lisp
git clone https://logand.com/git/cl-ipp.git/
Log | Files | Refs

commit a0a2fbc29ce7fe51cb5a9c87a5cd0248b652d7bd
parent 5b0516797f2357922f67c2506409ae53784a1395
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 10 Aug 2013 23:25:11 +0200

stricter attribute-tag and attribute-keyword

Diffstat:
Mipp.lisp | 5+++--
1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ipp.lisp b/ipp.lisp @@ -89,14 +89,15 @@ (:job-state-reasons . nil)))) (defun attribute-tag (attribute) - (cdr (assoc attribute attributes))) + (or (cdr (assoc attribute attributes)) + (error "unknown IPP type of attribute ~s" attribute))) (let ((x (loop for (k) in attributes collect (cons (string-downcase (symbol-name k)) k)))) (defun attribute-keyword (string) (or (cdr (assoc string x :test #'equal)) - (error "unknown attribute ~s" string))))) + (error "unknown IPP attribute ~s" string))))) ;;(attribute-tag :printer-uri) ;;(attribute-keyword "printer-uri")