From c94ed0370433e312f551ab2d20c2503d0590bd6d Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Mon, 1 Apr 2024 18:55:56 -0400
Subject: [PATCH] remove regression

---
 source/clog-form.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/source/clog-form.lisp b/source/clog-form.lisp
index 14cbe4b..5882733 100644
--- a/source/clog-form.lisp
+++ b/source/clog-form.lisp
@@ -223,7 +223,7 @@ attribute/value pairs in the form attr= 'value'"))
   (when (or hidden style)
     (setf (getf args :style)
           (format nil "~@[~a~]~@[~a~]" (when hidden "visibility:hidden;") style)))
-  (dolist (key '(:name :html-id :auto-place))
+  (dolist (key '(:html-id :auto-place))
     (remf args key))
   (let* ((element (create-child
                    obj (format nil "<input type='~A' ~{~(~A~)= '~A'~^ ~}/>"
@@ -235,8 +235,6 @@ attribute/value pairs in the form attr= 'value'"))
       (label-for label element))
     element))
 
-(escape-string :vslider :html t)
-
 ;;;;;;;;;;;;;;;;;;
 ;; autocomplete ;;
 ;;;;;;;;;;;;;;;;;;