X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbyte-types.lisp;h=e8b85d624fd151d1a39a873b256d46e651f3610a;hb=1513b29bfbe948e7b431b5f67f1ff10769c192cf;hp=38b092893377cbd2d7259efe1fe6b0ccadc000c9;hpb=0b5610d8a220a4b20cbeac958953ca4d67c00038;p=sbcl.git

diff --git a/src/code/byte-types.lisp b/src/code/byte-types.lisp
index 38b0928..e8b85d6 100644
--- a/src/code/byte-types.lisp
+++ b/src/code/byte-types.lisp
@@ -101,11 +101,11 @@
   (rest-arg-p nil :type (member t nil))
   ;; True if there are keywords. Note: keywords might still be NIL
   ;; because having &KEY with no keywords is valid and should result
-  ;; in allow-other-keys processing. If :allow-others, then allow
+  ;; in &ALLOW-OTHER-KEYS processing. If :ALLOW-OTHERS, then allow
   ;; other keys.
   (keywords-p nil :type (member t nil :allow-others))
-  ;; List of keyword arguments. Each element is a list of:
-  ;;   key, default, supplied-p.
+  ;; list of &KEY arguments. Each element is a list of:
+  ;; key, default, supplied-p.
   (keywords nil :type list))
 
 #!-sb-fluid (declaim (freeze-type byte-function-or-closure))