X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=f034d4ad83d95cd84977769fe079b90ff4e7b72e;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=5626039e676f49e7a499a1c1e3c752137ff12c32;hpb=1fdd787fcdac403f92d121701aee8738f710f048;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 5626039..f034d4a 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -1228,7 +1228,7 @@
   (derive-node-type node (continuation-type (set-value node)))
   (values))
 
-;;; Return true if the value of Ref will always be the same (and is
+;;; Return true if the value of REF will always be the same (and is
 ;;; thus legal to substitute.)
 (defun constant-reference-p (ref)
   (declare (type ref ref))