Remove the at-system-definition-load-time closure-common dependency

cxml.asd

@@ -7,13 +7,31 @@
 (defmethod asdf:component-name ((c dummy-cxml-component))
   :cxml)
 
-;; force loading of closure-common.asd, which installs *FEATURES* this
+(progn
-;; file depends on.  Use MISSING-DEPENDENCY for asdf-install.
+  (format t "~&;;; Checking for wide character support...")
-(unless (find-system :closure-common nil)
+  (force-output)
-  (error 'missing-dependency
+  (flet ((test (code)
-	 :required-by (make-instance 'dummy-cxml-component)
+	   (and (< code char-code-limit) (code-char code))))
-	 :version nil
+    (cond
-	 :requires :closure-common))
+      ((not (test 50000))
+       (format t " no, reverting to octet strings.~%")
+       #+rune-is-character
+       (error "conflicting unicode configuration.  Please recompile.")
+       (pushnew :rune-is-integer *features*))
+      ((code-char 70000)
+       (when (test #xD800)
+	 (format t " WARNING: Lisp implementation doesn't use UTF-16, ~
+                     but accepts surrogate code points.~%"))
+       (format t " yes, using code points.~%")
+       #+(or rune-is-integer rune-is-utf-16)
+       (error "conflicting unicode configuration.  Please recompile.")
+       (pushnew :rune-is-character *features*))
+      (t
+       (format t " yes, using UTF-16.~%")
+       #+(or rune-is-integer (and rune-is-character (not rune-is-utf-16)))
+       (error "conflicting unicode configuration.  Please recompile.")
+       (pushnew :rune-is-utf-16 *features*)
+       (pushnew :rune-is-character *features*)))))
 
 (defclass closure-source-file (cl-source-file) ())