Index: /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp	(revision 13427)
+++ /trunk/source/cocoa-ide/hemlock/src/lispmode.lisp	(revision 13428)
@@ -1138,4 +1138,5 @@
 ;;; 
 (defindent "block" 1)
+(defindent "return-from" 1)
 (defindent "case" 1)
 (defindent "catch" 1)
@@ -1187,4 +1188,7 @@
 (defindent "when" 1)
 
+;; CCL extensions
+(defindent "iterate" 2)
+
 ;;; Error/condition system forms.
 ;;; 
@@ -1200,4 +1204,6 @@
 (defindent "abort" 1)
 (defindent "continue" 1)
+;;; This is for DEFGENERIC method formatting
+(defindent "method" 1)
 
 ;;; Debug-internals forms.