From 7f5ca47ee45b0c0498cecc215b642f108c101eb5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 12 May 1990 20:15:39 +0000
Subject: [PATCH] When checking the number of VOP args supplied, don't expect
 there to be any for :CONSTANT operands.

---
 compiler/debug.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index 678be12c2..96a4d55ca 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -681,7 +681,11 @@
     (let* ((info (vop-info vop))
 	   (atypes (template-arg-types info))
 	   (rtypes (template-result-types info)))
-      (check-tn-refs (vop-args vop) vop nil (length atypes)
+      (check-tn-refs (vop-args vop) vop nil
+		     (count-if-not #'(lambda (x)
+				       (and (consp x)
+					    (eq (car x) :constant)))
+				   atypes)
 		     (template-more-args-type info) "args")
       (check-tn-refs (vop-results vop) vop t
 		     (if (eq rtypes :conditional) 0 (length rtypes))
-- 
GitLab