Updated Buffer set Definition code

buffer-sets.el

@@ -74,15 +74,16 @@
   "Define a buffer set named NAME, taking FILES, RUN-ON-APPLY, RUN-ON-REMOVE and BUFFER-TO-SELECT as keyword arguments."
   `(progn
      (cl-pushnew ',name *buffer-sets*)
-     (cl-pushnew (make-buffer-set :name ',name
-                                  :files ',files
-                                  :select ,select
-                                  :on-apply-source ',on-apply
-                                  :on-remove-source ',on-remove
-                                  :on-apply (lambda () ,@on-apply)
-                                  :on-remove (lambda () ,@on-remove))
-                 *buffer-set-definitions*
-                 :key #'buffer-set-name)
+     (setq *buffer-set-definitions* (cons (make-buffer-set :name ',name
+                                                           :files ',files
+                                                           :select ,select
+                                                           :on-apply-source ',on-apply
+                                                           :on-remove-source ',on-remove
+                                                           :on-apply (lambda () ,@on-apply)
+                                                           :on-remove (lambda () ,@on-remove))
+                                          (cl-remove-if (lambda (structure)
+                                                          (eq ',name (buffer-set-name structure)))
+                                                        *buffer-set-definitions*)))
      (defvar ,(buffer-set--generate-buffers-list name) nil)
      ',name))