From b9b8b736f655fcd7ffc867148de867b479d3ccd1 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sun, 19 Feb 2006 19:33:49 +0000
Subject: [PATCH] Fix properties of #\|.  It is a multiple-escape character,
 but its constituent trait is alphabetic, not multiple-escape.  This fixes
 ansi test SET-SYNTAX-FROM-CHAR-TRAIT-X-#\|.

---
 code/reader.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/code/reader.lisp b/code/reader.lisp
index d1e0a391c..0d023757f 100644
--- a/code/reader.lisp
+++ b/code/reader.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.59 2006/02/18 18:51:52 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.60 2006/02/19 19:33:49 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -222,7 +222,7 @@
   (test-attribute char whitespace rt))
 
 (defmacro constituentp (char &optional (rt '*readtable*))
-  `(>= (get-cat-entry ,char ,rt) #.constituent))
+  `(test-attribute ,char #.constituent ,rt))
 
 (defmacro terminating-macrop (char &optional (rt '*readtable*))
   `(test-attribute ,char #.terminating-macro ,rt))
@@ -257,7 +257,7 @@
 	(make-array char-code-limit :element-type '(unsigned-byte 8)
 		    :initial-element #.constituent))
   (set-secondary-attribute #\: #.package-delimiter)
-  (set-secondary-attribute #\| #.multiple-escape)	; |) [For EMACS]
+  ;;(set-secondary-attribute #\| #.multiple-escape)	; |) [For EMACS]
   (set-secondary-attribute #\. #.constituent-dot)
   (set-secondary-attribute #\+ #.constituent-sign)
   (set-secondary-attribute #\- #.constituent-sign)
@@ -426,6 +426,7 @@
     (set-cat-entry #\page #.whitespace)
     (set-cat-entry #\return #.whitespace)
     (set-cat-entry #\\ #.escape)
+    (set-cat-entry #\| #.multiple-escape)
     (set-cmt-entry #\\ #'read-token)
     (set-cmt-entry #\: #'read-token)
     (set-cmt-entry #\| #'read-token)
-- 
GitLab