From xemacs-m  Sat Aug 16 00:35:50 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id AAA28315
	for <xemacs-beta@xemacs.org>; Sat, 16 Aug 1997 00:35:48 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.6/8.8.6/Debian/GNU) id WAA31885;
	Fri, 15 Aug 1997 22:36:37 -0700
To: XEmacs Beta <xemacs-beta@xemacs.org>
Subject: [patch] lisp/cl/cl-macs.el and man/cl.texi
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Mime-Version: 1.0 (generated by tm-edit 7.108)
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Aug_15_22:36:35_1997-1"
Content-Transfer-Encoding: 7bit
From: karlheg@inetarena.com (Karl M. Hegbloom)
Date: 15 Aug 1997 22:36:35 -0700
Message-ID: <87yb623d0c.fsf@bittersweet.inetarena.com>
Lines: 76
X-Mailer: Gnus v5.4.64/XEmacs 20.3(beta17) - "Bucharest"

--Multipart_Fri_Aug_15_22:36:35_1997-1
Content-Type: text/plain; charset=US-ASCII

 Please look this over and see if it's the Right Way to do it.  I
checked it in Emacs and XEmacs-20, but not XEmacs-19.  Q: Is there a
`characterp' in XEmacs-19?  Hmmm.  I think if there is, this will work
anyhow, right?

 The "cl.texi" change may need editorial modifications... you be the
judge.

 Since `cl' is dumped, you've got to redump XEmacs to install this.


1997-08-15  Karl M. Hegbloom  <karlheg@inetarena.com>

	* cl/cl-macs.el (cl-make-type-test): Test whether characterp is
 	bound, and if it is, then test for characters, otherwise, test for
 	integers 0-255.  cl.texi updated also.
	

--Multipart_Fri_Aug_15_22:36:35_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: lisp/cl/cl-macs.el
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/lisp/cl/cl-macs.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 cl-macs.el
--- cl-macs.el	1997/07/14 02:55:42	1.1.1.1
+++ cl-macs.el	1997/08/16 05:22:49
@@ -2328,7 +2328,9 @@
 	 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 (fboundp 'characterp) ;; are characters a distinct type here?
+      (when (eq type 'string-char) (setq type 'character))
+    (when (memq type '(character 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))))


--Multipart_Fri_Aug_15_22:36:35_1997-1
Content-Type: text/plain; charset=US-ASCII

Index: man/cl.texi
===================================================================
RCS file: /usr/local/cvsroot/xemacs-20/man/cl.texi,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 cl.texi
--- cl.texi	1997/07/14 02:56:30	1.1.1.1
+++ cl.texi	1997/08/16 05:31:26
@@ -815,7 +815,10 @@
 
 @item
 The type symbols @code{character} and @code{string-char} match
-integers in the range from 0 to 255.
+characters.  In Emacs-19 and XEmacs-19, characters are the same thing as
+integers in the range 0-255.  In XEmacs-20, where characters are a
+first-class data type, this checks for actual characters, and
+@code{(typep 8bit-integer 'character)} will return @code{nil}.
 
 @item
 The type symbol @code{float} uses the @code{floatp-safe} predicate

--Multipart_Fri_Aug_15_22:36:35_1997-1
Content-Type: text/plain; charset=US-ASCII

mailto:karlheg@inetarena.com (Karl M. Hegbloom)
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.3.1  Linux 2.0.30+parport AMD K5 PR-133

--Multipart_Fri_Aug_15_22:36:35_1997-1--

