~mdw
/
sod
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
40d95de
)
src/method-impl.lisp (method-keyword-argument-lists): Fix indentation.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 26 Mar 2017 14:16:18 +0000
(15:16 +0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Fri, 8 Jun 2018 18:58:28 +0000
(19:58 +0100)
src/method-impl.lisp
patch
|
blob
|
blame
|
history
diff --git
a/src/method-impl.lisp
b/src/method-impl.lisp
index
630570b
..
2300ac6
100644
(file)
--- a/
src/method-impl.lisp
+++ b/
src/method-impl.lisp
@@
-252,15
+252,15
@@
(defmethod method-keyword-argument-lists
((method effective-method) direct-methods)
(with-slots (message) method
(defmethod method-keyword-argument-lists
((method effective-method) direct-methods)
(with-slots (message) method
-
(and (keyword-message-p message)
-
(mapcar (lambda (m)
-
(let ((type (sod-method-type m)))
-
(cons (c-function-keywords type)
-
(format nil "method for ~A on ~A (at ~A)"
-
message
-
(sod-method-class m)
-
(file-location m)))))
-
direct-methods))))
+ (and (keyword-message-p message)
+ (mapcar (lambda (m)
+ (let ((type (sod-method-type m)))
+ (cons (c-function-keywords type)
+ (format nil "method for ~A on ~A (at ~A)"
+ message
+ (sod-method-class m)
+ (file-location m)))))
+ direct-methods))))
(defmethod shared-initialize :after
((method effective-method) slot-names &key direct-methods)
(defmethod shared-initialize :after
((method effective-method) slot-names &key direct-methods)