--- slime-indentation.el.orig	2010-06-27 23:56:07.696743346 +0800
+++ slime-indentation.el	2010-06-27 23:56:55.057907193 +0800
@@ -321,8 +321,10 @@
                   ((null method)
                    (if (null (cdr path))
                        ;; (package prefix was stripped off above)
-                       (setq method (cond ((string-match "\\`def"
-                                                         function)
+                       (setq method (cond ((and (string-match "\\`def"
+                                                              function)
+                                                (not (string-match "\\`default-"
+                                                                   function)))
                                            '(4 (&whole 4 &rest 1) &body))
                                           ((string-match "\\`\\(with\\|do\\)-"
                                                          function)
@@ -774,7 +776,8 @@
 	       ((string-match ":[^:]+" function)
 		  (cl-indent::method (substring function
 						(1+ (match-beginning 0)))))
-	       ((string-match "\\`def" function) "defun")
+	       ((and (string-match "\\`def" function)
+		     (not (string-match "\\`default-" function))) "defun")
 	       ((string-match "\\`\\(with\\|do\\)-" function) 1))))
     (if (stringp method)
 	(cl-indent::method method)