atoms.lisp: Style cleanup.

[atoms] / atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index 1ee1e05f1118835e0f1a9cee88a35a6b91f190d9..60c6470e51c7e1d77c44ff0c0b9ed29007e4e072 100644 (file)
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -940,10 +940,9 @@ (defmethod initialize-instance :after ((window new-game-dialogue) &key)
          (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