From ca929ce0773a8195c3083a5a90322cddc68e2cce Mon Sep 17 00:00:00 2001 From: Matthias Benkard 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(-) (limited to 'Lisp') 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