adding support to nonNegativeInteger datatype

Author: arademaker

src/core/literal.lisp

@@ -185,8 +185,7 @@
 (defmethod compute-literal-value-error ((literal literal)
                                         (datatype node)
                                         string
-                                        &key (value string)
-                                             (warn-only-p nil))
+                                        &key (value string) (warn-only-p t))
   (unless warn-only-p
     (cerror (format nil "Use value ~S instead" value)
             'datatype-parse-error :thing string))
@@ -271,6 +270,11 @@
                                   string)
   (compute-literal-value-integer literal datatype string))
 
+(defmethod compute-literal-value ((literal literal)
+                                  (datatype (eql !xsd:nonNegativeInteger))
+                                  string)
+  (compute-literal-value-integer literal datatype string))
+
 (defmethod compute-literal-value ((literal literal)
 				  (datatype (eql !xsd:int))
 				  string)