Fixed documentation and error string typos (P. Van Eynde)

contrib/sockets/sockets.lisp

@@ -289,7 +289,7 @@ protocol. Other values are used as-is.")
    (stream)
    #+:wsock
    (non-blocking-p :initform nil))
-  (:documentation "Common base class of all sockets, not ment to be
+  (:documentation "Common base class of all sockets, not meant to be
 directly instantiated."))
 
 

src/clos/streams.lsp

@@ -69,7 +69,7 @@
 (defgeneric stream-fresh-line (stream)
   (: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."))
 

src/clx/image.lisp

@@ -1308,7 +1308,7 @@
 	    (image-xy (eq format :xy-pixmap))
 	    (image-z (eq format :z-pixmap))
 	    (image-x t))
-    (error "Result-type ~s is incompatable with format ~s"
+    (error "Result-type ~s is incompatible with format ~s"
 	   result-type format))
   (unless plane-mask (setq plane-mask #xffffffff))
   (let ((display (drawable-display drawable)))