Skip to content
Snippets Groups Projects
Commit ed2c71b6 authored by dtc's avatar dtc
Browse files

Fix declaration type from previous patch.

parent a778534c
No related branches found
No related tags found
No related merge requests found
......@@ -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*)
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment