From xemacs-m  Fri Aug 15 12:18:44 1997
Received: from server.sensei.co.uk (server.sensei.co.uk [193.132.124.5])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id MAA24965
	for <xemacs-beta@xemacs.org>; Fri, 15 Aug 1997 12:18:42 -0500 (CDT)
Received: from planet.sensei.co.uk (root@planet.sensei.co.uk [195.92.19.3]) by server.sensei.co.uk (8.8.5/8.8.2) with ESMTP id SAA24664; Fri, 15 Aug 1997 18:17:40 +0100
Received: from cerise.sensei.co.uk (glynn@muvies.demon.co.uk [158.152.66.14]) by planet.sensei.co.uk (8.8.2/8.8.2) with ESMTP id SAA22191; Fri, 15 Aug 1997 18:16:45 +0100
Received: (from glynn@localhost) by cerise.sensei.co.uk (8.8.5/8.8.2) id QAA00730; Fri, 15 Aug 1997 16:00:25 +0100
Date: Fri, 15 Aug 1997 16:00:25 +0100
Message-Id: <199708151500.QAA00730@cerise.sensei.co.uk>
From: Glynn Clements <glynn@sensei.co.uk>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: karlheg@inetarena.com (Karl M. Hegbloom)
Cc: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: Re: cl.el: (typep ?x 'character) ==> nil
In-Reply-To: <87rabv4vy7.fsf@bittersweet.inetarena.com>
References: <87rabv4vy7.fsf@bittersweet.inetarena.com>
X-Mailer: VM 6.33 under 20.3 "Bucharest" XEmacs  Lucid (beta17)


Karl M. Hegbloom wrote:

> (typep ?x 'character)
> nil
> (typep ?x '(satisfies characterp))
> t

Try this:

--- /usr/src/xemacs-20.3/lisp/cl/cl-macs.el	Sun Jul 27 03:26:08 1997
+++ /usr/local/lib/xemacs-20.3-b17/lisp/cl/cl-macs.el	Fri Aug 15 15:58:10 1997
@@ -2328,7 +2328,7 @@
 	 name 'cl-deftype-handler (cons (list* '&cl-defs ''('*) args) body))))
 
 (defun cl-make-type-test (val type)
-  (if (memq type '(character string-char)) (setq type '(integer 0 255)))
+  (if (memq type '(string-char)) (setq type '(integer 0 255)))
   (if (symbolp type)
       (cond ((get type 'cl-deftype-handler)
 	     (cl-make-type-test val (funcall (get type 'cl-deftype-handler))))

-- 
Glynn Clements <glynn@sensei.co.uk>

