;; SLIME setup.
+(defvar mdw-friendly-name "[mdw]"
+ "How I want to be addressed.")
+(defadvice slime-user-first-name
+ (around mdw-use-friendly-name compile activate)
+ (if mdw-friendly-name (setq ad-return-value mdw-friendly-name)
+ ad-do-it))
+
(trap
(if (not mdw-fast-startup)
(progn