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