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