libraries/prompter/prompter: Refactor history-pushnew.

atlas-engineer · aadcg · Nov 18, 2022 · Sep 9, 2022 · Sep 9, 2022 · Sep 8, 2022
commit 52ad7a0fa5803757938d409912e11aace33139e1
diff --git a/libraries/prompter/prompter.lisp b/libraries/prompter/prompter.lisp
@@ -390,12 +390,10 @@ marked element; otherwise return the list of `return-actions' for the current
     (slot-value (selected-source prompter) 'return-actions)))
 
 (defun history-pushnew (history element &key (test #'equal) )
-  (alex:when-let ((previous-element-index (containers:element-position
-                                     history
-                                     element
-                                     :test test)))
-    (containers:delete-item-at history
-                               previous-element-index))
+  (alex:when-let ((previous-element-index (containers:element-position history
+                                                                       element
+                                                                       :test test)))
+    (containers:delete-item-at history previous-element-index))
   (containers:insert-item history element))