[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv21434

Modified Files:
	lisp-syntax.lisp 
Log Message:
`indices-match-arglist' fixed again.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/28 10:37:55	1.102
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/29 21:39:50	1.103
@@ -3631,8 +3631,11 @@
          (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)