Improve code formatting.

darcs-hash:78633fe3d92daaf676fce0c9410709f7a7f1489a

1 files changed, 8 insertions, 11 deletions

diff --git a/Lisp/compiler-macros.lisp b/Lisp/compiler-macros.lisp
index 2cb64c3..06ccb8a 100644
--- a/Lisp/compiler-macros.lisp
+++ b/Lisp/compiler-macros.lisp
@@ -20,17 +20,14 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun selector-load-time-form (method-name)
-    `(load-time-value (handler-case
-                          (find-selector ',method-name)
-                        (serious-condition ()
-                          (warn
-                           (make-condition 'simple-style-warning
-                                           :format-control
-                                           "~S designates an unknown ~
-                                            method selector."
-                                           :format-arguments
-                                           (list ',method-name)))
-                          ',method-name)))))
+    `(load-time-value
+      (handler-case
+          (find-selector ',method-name)
+        (serious-condition ()
+          (warn (make-condition 'simple-style-warning
+                                :format-control "~S designates an unknown method selector."
+                                :format-arguments (list ',method-name)))
+          ',method-name)))))
 
 
 ;; Optimise constant method names away by converting them to selectors