[slime-cvs] CVS update: slime/cl-indent.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv10071

Modified Files:
	cl-indent.el 
Log Message:
(lisp-prefix-match-indentation): Change default to nil to avoid
confusion for people who don't care about the issue.

Add indentation specs for some missing CL symbols.

Date: Tue Oct 26 02:43:42 2004
Author: heller

Index: slime/cl-indent.el
diff -u slime/cl-indent.el:1.1 slime/cl-indent.el:1.2
--- slime/cl-indent.el:1.1	Sun Oct 17 20:46:35 2004
+++ slime/cl-indent.el	Tue Oct 26 02:43:42 2004
@@ -84,7 +84,7 @@
   :type 'boolean
   :group 'lisp-indent)
 
-(defcustom lisp-prefix-match-indentation nil
+(defcustom lisp-prefix-match-indentation t
   "*Indent forms starting with \"def\" or \"do\" like defun or dolist."
   :type 'boolean
   :group 'lisp-indent)
@@ -510,6 +510,7 @@
            (define-setf-expander . defun)
            (defmacro . defun) (defsubst . defun) (deftype . defun)
 	   (defmethod	lisp-indent-defmethod)
+           (defgeneric  . defmethod)
            (defpackage  (4 2))
            (defstruct   ((&whole 4 &rest (&whole 2 &rest 1))
                          &rest (&whole 2 &rest 1)))
@@ -565,7 +566,15 @@
            (with-output-to-string (4 2))
            (with-slots . multiple-value-bind)
            (with-standard-io-syntax (2))
-	   (with-open-file (&lambda &body)))))
+	   (with-open-file (&lambda &body))
+	   (with-open-stream (&lambda &body))
+	   (with-input-from-string (&lambda &body))
+	   (with-hash-table-iterator 1)
+	   (with-compilation-unit (&lambda &body))	   
+	   (with-simple-restart (&lambda &body))
+	   (do-external-symbols (&lambda &body))
+	   (define-symbol-macro 1)
+	   )))
   (dolist (el l)
     (put (car el) 'common-lisp-indent-function
          (if (symbolp (cdr el))