Commit 07028df05ae7e9399421fad1eab7e941c3bf9936

Thomas de Grivel 2018-02-07T00:52:04

Define constant +EOF+ as a gensym.

diff --git a/misc.lisp b/misc.lisp
index 456f0b0..2ba8abc 100644
--- a/misc.lisp
+++ b/misc.lisp
@@ -24,3 +24,8 @@
 (defun shadowing-import-from ()
   `(:shadowing-import-from :cl-stream
                            ,@(package-shadowing-symbols :cl-stream)))
+
+(unless (boundp '+eof+)
+  (defconstant +eof+
+    (gensym "EOF-")
+    "Gensym to represent end of stream."))
diff --git a/package.lisp b/package.lisp
index 5c72322..51ee26b 100644
--- a/package.lisp
+++ b/package.lisp
@@ -46,6 +46,7 @@
    #:write
    #:write-sequence)
   (:export
+   #:+eof+
    #:buffered-input-stream
    #:buffered-output-stream
    #:close