[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv29381 Modified Files: lisp-syntax.lisp Log Message: Changed a couple of indent-lambda-lists to indent-ordinary-lambda-list. Date: Mon Aug 15 23:24:56 2005 Author: dmurray Index: climacs/lisp-syntax.lisp diff -u climacs/lisp-syntax.lisp:1.30 climacs/lisp-syntax.lisp:1.31 --- climacs/lisp-syntax.lisp:1.30 Mon Aug 15 17:52:55 2005 +++ climacs/lisp-syntax.lisp Mon Aug 15 23:24:55 2005 @@ -1891,7 +1891,7 @@ (indent-list syntax (elt-form (children tree) 2) (cdr path))) (3 ;; in the lambda-list - (indent-lambda-list syntax (elt-form (children tree) 3) (cdr path))) + (indent-ordinary-lambda-list syntax (elt-form (children tree) 3) (cdr path))) (t ;; in the options or method specifications (indent-list syntax (elt-form (children tree) (car path)) (cdr path)))))) @@ -1911,7 +1911,7 @@ (< (car path) lambda-list-pos)) (indent-list syntax (elt-form (children tree) (car path)) (cdr path))) ((= (car path) lambda-list-pos) - (indent-lambda-list syntax (elt-form (children tree) (car path)) (cdr path))) + (indent-ordinary-lambda-list syntax (elt-form (children tree) (car path)) (cdr path))) (t (indent-form syntax (elt-form (children tree) (car path)) (cdr path))))))
participants (1)
-
dmurray@common-lisp.net