summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-12-04 21:18:31 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-12-04 21:18:31 +0100
commitca929ce0773a8195c3083a5a90322cddc68e2cce (patch)
tree2d799dd9429dd74f888352f1929104bbd0afe8a7 /Lisp
parent31ad74e07ca4b77ffbfdc104b403efda61487e40 (diff)
Improve code formatting.
darcs-hash:78633fe3d92daaf676fce0c9410709f7a7f1489a
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/compiler-macros.lisp19
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