X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvop.lisp;h=c2174a9f65da9a95b1e18eef07751af9582da40e;hb=237ecea4a44f33d40440ea40c67c54e9e23358b3;hp=c6c650924d01ebc93fbd1bf64d628dc6fbf3d1f2;hpb=c7dc5b2a1f56ed0583a0b3ea61b6ceb540c6f89e;p=sbcl.git

diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp
index c6c6509..c2174a9 100644
--- a/src/compiler/vop.lisp
+++ b/src/compiler/vop.lisp
@@ -881,7 +881,7 @@
   ;; wired TNs.
   (primitive-type nil :type (or primitive-type null))
   ;; If this TN represents a variable or constant, then this is the
-  ;; corresponding Leaf.
+  ;; corresponding LEAF.
   (leaf nil :type (or leaf null))
   ;; thread that links TNs together so that we can find them
   (next nil :type (or tn null))