hax:%want-strings-p

closure-common.asd

@@ -25,7 +25,6 @@
                         :rune-is-character))
              (unless (or (<= #xD800 x #xDFFF)
 			 (and (< x char-code-limit) (code-char x)))
-	       (print (code-char x))
                (format t " no, reverting to octet strings.~%")
                (return :rune-is-integer)))
            *features*))

hax.lisp

@@ -47,7 +47,10 @@
            #:characters
            #:end-element
            #:end-document
-           #:comment))
+           #:comment
+
+	   #+rune-is-integer
+	   #:%want-strings-p))
 
 (in-package :hax)
 
@@ -86,6 +89,11 @@
 (defclass abstract-handler () ())
 (defclass default-handler (abstract-handler) ())
 
+#+rune-is-integer
+(defgeneric %want-strings-p (handler)
+  (:method ((handler null)) nil)
+  (:method ((handler abstract-handler)) t))
+
 (defgeneric start-document (handler name public-id system-id)
   (:method ((handler null) name public-id system-id)
     (declare (ignore name public-id system-id))

utf8.lisp

@@ -29,7 +29,7 @@
 (defun rod-reader (stream subchar arg)
   (runes::rod-string (runes::rod-reader stream subchar arg)))
 
-(setf runes-system:*utf8-runes-readtable*
+(setf closure-common-system:*utf8-runes-readtable*
       (let ((rt (copy-readtable)))
 	(set-dispatch-macro-character #\# #\/ 'rune-reader rt)
 	(set-dispatch-macro-character #\# #\" 'rod-reader rt)