From ca929ce0773a8195c3083a5a90322cddc68e2cce Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 4 Dec 2008 21:18:31 +0100
Subject: Improve code formatting.

darcs-hash:78633fe3d92daaf676fce0c9410709f7a7f1489a
---
 Lisp/compiler-macros.lisp | 19 ++++++++-----------
 1 file 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
-- 
cgit v1.2.3