cl-ipp

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:
M
ipp.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")