From 9197294e6abfd75e5d8c06be44bded9cb2bb1eae Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Tue, 27 Mar 2001 20:26:28 +0000
Subject: [PATCH] From Pierre Mai

Put :gray-streams on *features* and announce via *herald-items*.
---
 pcl/gray-streams.lisp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/pcl/gray-streams.lisp b/pcl/gray-streams.lisp
index f5a94ae14..b6957625e 100644
--- a/pcl/gray-streams.lisp
+++ b/pcl/gray-streams.lisp
@@ -4,7 +4,7 @@
 ;;; the Public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.3 2000/06/06 09:56:45 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.4 2001/03/27 20:26:28 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -412,3 +412,10 @@
 
 (defmethod stream-clear-input ((stream character-input-stream))
   (clear-input (character-input-stream-lisp-stream stream)))
+
+;; Announce ourselves to the world
+(pushnew :gray-streams *features*)
+
+(setf (getf ext:*herald-items* :gray-streams)
+      '("    Gray Streams Protocol Support"))
+
-- 
GitLab