From 74248e34037fff63abc3b517bf98c7b992cf9bee Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Sun, 21 Oct 2007 17:07:38 +0000
Subject: [PATCH] hax:%want-strings-p

---
 closure-common.asd |  1 -
 hax.lisp           | 24 ++++++++++++++++--------
 utf8.lisp          |  2 +-
 3 files changed, 17 insertions(+), 10 deletions(-)

diff --git a/closure-common.asd b/closure-common.asd
index a8a57c9..c514999 100644
--- a/closure-common.asd
+++ b/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*))
diff --git a/hax.lisp b/hax.lisp
index 7a6d6f0..ac32602 100644
--- a/hax.lisp
+++ b/hax.lisp
@@ -9,15 +9,15 @@
 
 ;;; Redistribution and use  in source and binary   forms, with or  without
 ;;; modification, are permitted provided that the following conditions are
-;;; met:                                                                  
-;;;                                                                   
+;;; met:
+;;;
 ;;; 1. Redistributions  of  source  code  must retain  the above copyright
-;;;    notice, this list of conditions and the following disclaimer.      
-;;;                                                                   
+;;;    notice, this list of conditions and the following disclaimer.
+;;;
 ;;; 2. Redistributions in  binary form must reproduce  the above copyright
 ;;;    notice, this list of conditions and the following disclaimer in the
 ;;;    documentation and/or other materials provided with the distribution
-;;;                                                                   
+;;;
 ;;; THIS  SOFTWARE   IS PROVIDED ``AS  IS''   AND ANY  EXPRESS  OR IMPLIED
 ;;; WARRANTIES, INCLUDING, BUT NOT LIMITED  TO, THE IMPLIED WARRANTIES  OF
 ;;; MERCHANTABILITY  AND FITNESS FOR A  PARTICULAR PURPOSE ARE DISCLAIMED.
@@ -34,20 +34,23 @@
   (:use :common-lisp)
   (:export #:abstract-handler
 	   #:default-handler
-           
+
 	   #:make-attribute
 	   #:standard-attribute
            #:find-attribute
            #:attribute-name
            #:attribute-value
            #:attribute-specified-p
-	   
+
            #:start-document
            #:start-element
            #: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))
diff --git a/utf8.lisp b/utf8.lisp
index 5aef7f1..03e0dd2 100644
--- a/utf8.lisp
+++ b/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)
-- 
2.11.4.GIT