X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flate-type.lisp;h=1e848c6bd047514b293f70c10e5485f80c789b00;hb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;hp=88c91ecccdf4667c96a2c00aa53f7b9f2e406ab9;hpb=95a6db7329b91dd90d165dd4057b9b5098d34aa2;p=sbcl.git

diff --git a/src/code/late-type.lisp b/src/code/late-type.lisp
index 88c91ec..1e848c6 100644
--- a/src/code/late-type.lisp
+++ b/src/code/late-type.lisp
@@ -364,8 +364,8 @@
 ;;; Return two values:
 ;;; MNA: fix-instance-typep-call patch
 ;;; 1. A list of all the positional (fixed and optional) types.
-;;; 2] The rest type (if any).  If keywords allowed, *universal-type*.
-;;;    If no keywords or rest then the default-type.
+;;; 2. The &REST type (if any). If keywords allowed, *UNIVERSAL-TYPE*.
+;;;    If no keywords or &REST, then the DEFAULT-TYPE.
 (defun values-type-types (type &optional (default-type *empty-type*))
   (declare (type values-type type))
   (values (append (args-type-required type)