X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgray-streams.lisp;h=f182d4e0b0f9c58fc84c756487fd37e40b72c20c;hb=54da325f13fb41669869aea688ae195426c0e231;hp=38eb79ea664821b26d8da5bd6c6d3f7669f80833;hpb=378a5e39c182b5c3ba14da80c157ad2c0021b25f;p=sbcl.git

diff --git a/src/pcl/gray-streams.lisp b/src/pcl/gray-streams.lisp
index 38eb79e..f182d4e 100644
--- a/src/pcl/gray-streams.lisp
+++ b/src/pcl/gray-streams.lisp
@@ -176,7 +176,7 @@
 (defgeneric stream-unread-char (stream character)
   #+sb-doc
   (:documentation
-   "Un-do the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.
+   "Undo the last call to STREAM-READ-CHAR, as in UNREAD-CHAR.
   Return NIL. Every subclass of FUNDAMENTAL-CHARACTER-INPUT-STREAM
   must define a method for this function."))
 
@@ -403,7 +403,7 @@
   #+sb-doc
   (:documentation
    "Outputs a new line to the Stream if it is not positioned at the
-  begining of a line. Returns T if it output a new line, nil
+  beginning of a line. Returns T if it output a new line, nil
   otherwise. Used by FRESH-LINE. The default method uses
   STREAM-START-LINE-P and STREAM-TERPRI."))