From ed2c71b6c1060a39620458e84a2e077b988f6887 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 7 Jul 2000 11:04:06 +0000 Subject: [PATCH] Fix declaration type from previous patch. --- compiler/debug.lisp | 4 ++-- compiler/proclaim.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/debug.lisp b/compiler/debug.lisp index 676d7d3a0..f4f379305 100644 --- a/compiler/debug.lisp +++ b/compiler/debug.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.30 2000/07/07 09:33:00 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug.lisp,v 1.31 2000/07/07 11:04:05 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -362,7 +362,7 @@ ;;; consistency. ;;; (defun check-block-consistency (block) - (declare (type cblock cblock)) + (declare (type cblock block)) (dolist (pred (block-pred block)) (unless (gethash pred *seen-blocks*) diff --git a/compiler/proclaim.lisp b/compiler/proclaim.lisp index 68c73fdde..3ca796db3 100644 --- a/compiler/proclaim.lisp +++ b/compiler/proclaim.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.31 2000/07/07 09:33:04 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.32 2000/07/07 11:04:06 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -111,7 +111,7 @@ ;;; use Compiler-Error, aborting compilation to the last recovery point. ;;; (defun parse-lambda-list (list) - (delcare (list list) + (declare (list list) (values list list boolean t boolean list boolean list boolean t t)) (collect ((required) (optional) -- GitLab