Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv17905 Modified Files: lisp-syntax.lisp Log Message: Indentation for with-open-file and some CLIM macros that I am currently using. Date: Wed Jan 11 19:52:45 2006 Author: rstrandh Index: climacs/lisp-syntax.lisp diff -u climacs/lisp-syntax.lisp:1.40 climacs/lisp-syntax.lisp:1.41 --- climacs/lisp-syntax.lisp:1.40 Wed Jan 11 18:10:15 2006 +++ climacs/lisp-syntax.lisp Wed Jan 11 19:52:45 2006 @@ -2066,6 +2066,18 @@ (define-simple-indentor (flet indent-local-function-definitions)) (define-simple-indentor (labels indent-local-function-definitions)) +(define-simple-indentor (with-open-file indent-list)) + +;;; CLIM indentation + +(define-simple-indentor (clim:with-output-as-presentation indent-list)) +(define-simple-indentor (clim:vertically indent-list)) +(define-simple-indentor (clim:horizontally indent-list)) +(define-simple-indentor (clim:scrolling indent-list)) +(define-simple-indentor (clim:with-drawing-options indent-list)) +(define-simple-indentor (clim:define-command-table indent-list)) +(define-simple-indentor (clim:define-command indent-list indent-list)) +(define-simple-indentor (clim:define-application-frame indent-list indent-list)) (defun compute-path-in-trees (trees n offset) (cond ((or (null trees)