From e4915983b672036d4e006bfa9f57082e629dfba8 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Sun, 15 Jun 2003 12:16:35 +0000
Subject: [PATCH] 	* src/code/reader.lisp (read-token): Fix last change.

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

diff --git a/code/reader.lisp b/code/reader.lisp
index 1aa26aeba..83aa6ae4b 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.36 2003/06/14 14:37:00 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/reader.lisp,v 1.37 2003/06/15 12:16:35 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1067,7 +1067,8 @@
 		      (read-buffer-to-string)))
       (setq colons 1)
       (setq package
-	    (if (eql (char-class firstchar) #.package-delimiter)
+	    (if (eql (char-class firstchar attribute-table)
+		     #.package-delimiter)
 		*keyword-package*
 		(read-buffer-to-string)))
       (reset-read-buffer)
-- 
GitLab