Permalink
Browse files

English mistakes

  • Loading branch information...
1 parent f8dee9d commit 4c14cd08b19e84ff738c1b3bb19913c7ff19424c @davazp committed Mar 18, 2012
Showing with 5 additions and 5 deletions.
  1. +1 −1 components.lisp
  2. +1 −1 types-binary.lisp
  3. +3 −3 utils.lisp
View
@@ -107,7 +107,7 @@
;;; Return a property of COMPONENT with name PROPRETY-NAME. If ALL-P
;;; is present, return the list of all the properties with this name
-;;; indeed. The behaviour is undefined if the returned list is
+;;; instead. The behaviour is undefined if the returned list is
;;; modified destructively.
(defun query-property (component property-name &optional all-p)
(let ((list (gethash property-name (property-table component))))
View
@@ -61,7 +61,7 @@
(progn
;; The binary data value must be written as a base64-encoded
;; sequence. Therefore, the ENCODING=BASE64 parameter should be
- ;; present. We don't check this here; indeed, we trust in the caller
+ ;; present. We don't check this here; instead, we trust in the caller
;; (property code basically) will do the right thing.
(defmethod format-value (value (type (eql 'binary)) &optional params)
(declare (ignore params) (type binary value))
View
@@ -135,15 +135,15 @@
;;; Mark a function as deprecated. When FUNCTION is called, it signals
;;; a simple warning. If REPLACEMENT is given, it will recommend to
-;;; use REPLACEMENT indeed.
+;;; use REPLACEMENT instead.
;;;
;;; FUNCTION and REPLACEMENT are symbols.
(defmacro deprecate-function (function &body ignore &key replacement)
(declare (ignore ignore))
(declare (symbol function replacement))
`(define-compiler-macro ,function (&whole form &rest args)
(declare (ignore args))
- (warn "Function ~a is deprecated. ~@[Use ~a indeed.~]"
+ (warn "Function ~a is deprecated. ~@[Use ~a instead.~]"
',function ',replacement)
form))
@@ -270,7 +270,7 @@
;;; delete-nth is like remove-nth but it could modify the list.
;;;
;;; NOTE: if you want delete the nth element of the value of a
-;;; variable V, you should use '(setf v (delete-nth n v))', indeed of
+;;; variable V, you should use '(setf v (delete-nth n v))', instead of
;;; '(delete-nth n v)', just as the standard delete function.
(defun delete-nth (n list)
(declare (type (integer 0 *) n) (list list))

0 comments on commit 4c14cd0

Please sign in to comment.