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