From 69399234506b8a4ecf540effe70bc1a5b86f34cc Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Mon, 17 May 2010 23:37:47 +0200
Subject: [PATCH] Missing definition for CHARACTER-DESIGNATOR.

---
 src/cmp/proclamations.lsp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/cmp/proclamations.lsp b/src/cmp/proclamations.lsp
index 50b0cf678..5d52eacff 100644
--- a/src/cmp/proclamations.lsp
+++ b/src/cmp/proclamations.lsp
@@ -76,6 +76,8 @@
   '(cons integer-length integer-length))
 (deftype character-code ()
   '(integer 0 #.(1- char-code-limit)))
+(deftype character-designator ()
+  '(or character string-designator))
 (deftype external-file-format ()
   '(or symbol list))
 (deftype declaration-specifier ()