[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Added indentation rule for readtime-evaluation-forms.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/05 13:52:17	1.89
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/07/11 20:55:08	1.90
@@ -2438,6 +2438,11 @@
 	((null (cdr path))
 	 (values (first-form (children tree)) 0))))
 
+(defmethod indent-form ((syntax lisp-syntax) (tree readtime-evaluation-form) path)
+  (if (null (cdr path))
+      (values tree 0)
+      (indent-form syntax (elt-form (children tree) 0) (cdr path))))
+
 (defmethod indent-form ((syntax lisp-syntax) (tree list-form) path)
   (if (= (car path) 1)
       ;; before first element