From e2fbe37fcd7571d2f696cce6b55b8f127a9f47b2 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 1 Dec 2011 22:56:23 +0100
Subject: [PATCH] LOC-IMMEDIATE-VALUE-P did not return the appropriate value
 for character locations

---
 src/cmp/cmploc.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp
index 6174b264f..f2fb62db7 100644
--- a/src/cmp/cmploc.lsp
+++ b/src/cmp/cmploc.lsp
@@ -113,9 +113,11 @@
         ((atom loc)
          (values nil nil))
         ((member (first loc)
-                 '(fixnum-value character-value long-float-value
+                 '(fixnum-value long-float-value
                    double-float-value single-float-value))
          (values t (second loc)))
+	((eq (first loc) 'character-value)
+	 (values t (code-char (second loc))))
         (t
          (values nil nil))))