From b6e54f51c19c5c03e88d985ad6a6a639356fd091 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 21 May 1991 22:29:29 +0000
Subject: [PATCH] In check-approximate-fixed-and-rest, say "second" instead of
 "two".

---
 compiler/ctype.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp
index 2f8bfdb71..d1de1d6fa 100644
--- a/compiler/ctype.lisp
+++ b/compiler/ctype.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.19 1991/05/16 16:37:27 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ctype.lisp,v 1.20 1991/05/21 22:29:29 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -507,7 +507,7 @@
       ((null types))
     (let ((decl-type (or (car arg) rest)))
       (unless decl-type (return))
-      (check-approximate-arg-type (car types) decl-type "~R" n))))
+      (check-approximate-arg-type (car types) decl-type "~:R" n))))
 
 
 ;;; Check-Approximate-Arg-Type  --  Internal
-- 
GitLab