fix parsing on ccl: use subtypep to detect slot types in flexml
Fri Aug 8 01:41:34 PDT 2008 attila.lendvai@gmail.com
* fix parsing on ccl: use subtypep to detect slot types in flexml
diff -rN -u old-verrazano/src/flexml.lisp new-verrazano/src/flexml.lisp
--- old-verrazano/src/flexml.lisp 2014-07-31 08:39:26.000000000 -0700
+++ new-verrazano/src/flexml.lisp 2014-07-31 08:39:26.000000000 -0700
@@ -214,9 +214,9 @@
(cond ((member slot-type '(cross-referenced-node
cross-referenced-nodes))
(push (cons node slot) (cross-referencing-slots-of builder)))
- ((eq slot-type 'integer)
+ ((subtypep slot-type 'integer)
(setf attribute-value (parse-integer attribute-value)))
- ((eq slot-type 'boolean)
+ ((subtypep slot-type 'boolean)
(setf attribute-value (not (null (member attribute-value
'("1" "true" "TRUE")
:test #'string=))))))