X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=b6e34c86bed9210795ee4fd1b17135a902920abd;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=0c4b05c0b24a850e8c4929816d5e41034bd0eef1;hpb=71173fc4590389c52ac0e1abd75f79e417dad361;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 0c4b05c..b6e34c8 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -122,7 +122,7 @@
   ;;    called for, but it believes it has proven that the check won't
   ;;    be done for policy reasons or because a safe implementation
   ;;    will be used. In the latter case, LTN must ensure that a safe
-  ;;    implementation *is* be used.
+  ;;    implementation *is* used.
   ;;
   ;; :ERROR
   ;;    There is a compile-time type error in some use of this
@@ -960,14 +960,14 @@
 			(:constructor make-combination (fun))))
 (defprinter (combination)
   (fun :prin1 (continuation-use fun))
-  (args :prin1 (mapcar #'(lambda (x)
-			   (if x
-			       (continuation-use x)
-			       "<deleted>"))
+  (args :prin1 (mapcar (lambda (x)
+			 (if x
+			     (continuation-use x)
+			     "<deleted>"))
 		       args)))
 
-;;; An MV-Combination is to Multiple-Value-Call as a Combination is to
-;;; Funcall. This is used to implement all the multiple-value
+;;; An MV-COMBINATION is to MULTIPLE-VALUE-CALL as a COMBINATION is to
+;;; FUNCALL. This is used to implement all the multiple-value
 ;;; receiving forms.
 (defstruct (mv-combination (:include basic-combination)
 			   (:constructor make-mv-combination (fun))))