From 377f8275f2c90a6fbde800a6c690b33fa166865c Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Wed, 6 Oct 2010 19:59:12 +0200
Subject: [PATCH] Fix asd for cmucl with unicode

---
 closure-common.asd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/closure-common.asd b/closure-common.asd
index 8d87215..34f3891 100644
--- a/closure-common.asd
+++ b/closure-common.asd
@@ -26,7 +26,7 @@
        #+rune-is-character
        (error "conflicting unicode configuration.  Please recompile.")
        (pushnew :rune-is-integer *features*))
-      ((code-char 70000)
+      ((test 70000)
        (when (test #xD800)
 	 (format t " WARNING: Lisp implementation doesn't use UTF-16, ~
                      but accepts surrogate code points.~%"))