X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdump.lisp;h=610c1dbf1e3ce8d007151611c61bd0141cdbe421;hb=4dc4761909992ceb346d003f3fb19e5c837ee985;hp=d0b85bc25bd266b77ac3a216d09ecb37c5660663;hpb=d90c11f2192a9cff9bae7b74cb749a208623938c;p=sbcl.git

diff --git a/src/compiler/dump.lisp b/src/compiler/dump.lisp
index d0b85bc..610c1db 100644
--- a/src/compiler/dump.lisp
+++ b/src/compiler/dump.lisp
@@ -682,7 +682,7 @@
     (6 (dump-fop 'fop-list*-6 file))
     (7 (dump-fop 'fop-list*-7 file))
     (8 (dump-fop 'fop-list*-8 file))
-    (T (do ((nn n (- nn 255)))
+    (t (do ((nn n (- nn 255)))
 	   ((< nn 256)
 	    (dump-fop 'fop-list* file)
 	    (dump-byte nn file))
@@ -704,7 +704,7 @@
     (6 (dump-fop 'fop-list-6 file))
     (7 (dump-fop 'fop-list-7 file))
     (8 (dump-fop 'fop-list-8 file))
-    (T (cond ((< n 256)
+    (t (cond ((< n 256)
 	      (dump-fop 'fop-list file)
 	      (dump-byte n file))
 	     (t (dump-fop 'fop-list file)