atoms.lisp: Style cleanup.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index 1ee1e05..60c6470 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -940,10 +940,9 @@
          (gtk:signal-connect renderer :edited
                              (lambda (path new-text)
                                (setf (gtk:tree-model-value
-                                      players
-                                      path
-                                      'name)
+                                      players path 'name)
                                      new-text))))
+
        (gtk:signal-connect view :row-activated
                            (lambda (path column)
                              (when (eql (position column