Commits

Ivan Andrus committed 356f03d

Compare by name only since other slots will often differ

  • Participants
  • Parent commits 3434fd8

Comments (0)

Files changed (1)

                    `(make-achievement ,name nil ,@body)
                    )
                 t
-                ;; compare function
-                ))
+                ;; We compare by name only, since the predicate will often be different
+                (lambda (a b)
+                  (equal (emacs-achievement-name a)
+                         (emacs-achievement-name b)))))
 
 (defmacro defcommand-achievements (format-str body &rest arguments)
   (cons 'progn