Commit 6383e436 authored by Troels Henriksen's avatar Troels Henriksen

`indices-match-arglist' fixed again.

parent 83d0d484
......@@ -3631,8 +3631,11 @@ Returns NIL if an arglist cannot be displayed."
(pure-arglist (remove-if #'arglist-keyword-p arglist))
(arg (when (< index (length pure-arglist))
(elt pure-arglist index))))
(cond ((and (> index (or (position #'arglist-keyword-p arglist) 0))
(not (null (rest arg-indices))))
(cond ((and (>= index (or (position #'arglist-keyword-p arglist) 0))
(not (null (rest arg-indices)))
(> (length pure-arglist)
index)
(not (listp (elt pure-arglist index))))
nil)
((and (not (null arg))
(listp arg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment