From 5918c54f23e94240d0dae4e8e31f8bd4f23fbc87 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 5 Mar 2011 15:11:49 +0100 Subject: [PATCH] Fixed documentation and error string typos (P. Van Eynde) --- contrib/sockets/sockets.lisp | 2 +- src/clos/streams.lsp | 2 +- src/clx/image.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp index 593e4afee..78b0b3b95 100755 --- a/contrib/sockets/sockets.lisp +++ b/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.")) diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp index 9ee7ee3dd..ff2f477a6 100644 --- a/src/clos/streams.lsp +++ b/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.")) diff --git a/src/clx/image.lisp b/src/clx/image.lisp index 8eb47af33..cd67ee2d2 100644 --- a/src/clx/image.lisp +++ b/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)))