From 07badf51fd7c9cec5025e4e8b0f3aeb12a8eba3e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 24 Sep 1990 18:10:04 +0000
Subject: [PATCH] typo

---
 compiler/srctran.lisp  | 4 ++--
 compiler/typetran.lisp | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp
index 66c45bbee..94bb4de4a 100644
--- a/compiler/srctran.lisp
+++ b/compiler/srctran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.12 1990/08/24 18:29:38 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.13 1990/09/24 18:09:36 wlott Exp $
 ;;;
 ;;;    This file contains macro-like source transformations which convert
 ;;; uses of certain functions into the canonical form desired within the
@@ -597,7 +597,7 @@
 ;;; NIL, false otherwise.
 ;;;
 (defun unsupplied-or-nil (arg)
-  (declare (type (or continuation null arg)))
+  (declare (type (or continuation null) arg))
   (or (not arg)
       (and (constant-continuation-p arg)
 	   (not (continuation-value arg)))))
diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp
index 97a29aea0..8f9e9fcdf 100644
--- a/compiler/typetran.lisp
+++ b/compiler/typetran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.5 1990/08/24 18:30:08 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.6 1990/09/24 18:10:04 wlott Exp $
 ;;;
 ;;;    This file contains stuff that implements the portable IR1 semantics of
 ;;; type tests.  The main thing we do is convert complex type tests into
@@ -281,7 +281,7 @@
 ;;; *TYPE-PREDICATES* that is a supertype of Type.
 ;;;
 (defun find-supertype-predicate (type)
-  (declare (type ctype ctype))
+  (declare (type ctype type))
   (let ((res nil)
 	(res-type nil))
     (dolist (x *type-predicates*)
-- 
GitLab