mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Correct missing quotes on storage removeItem

Browse source
This commit is contained in:
David Botton 2022-04-14 16:03:37 -04:00
parent 827c6240ae
commit a69fe5a314
3 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-location.lisp
View file

@ -185,7 +185,8 @@
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
(defgeneric url-replace (clog-window replace-url) (defgeneric url-replace (clog-window replace-url)
(:documentation "Replace browser url.")) (:documentation "Replace browser url, ie a redirection and current URL not
saved in session history and back button will not return to it."))
(defmethod url-replace ((obj clog-window) replace-url) (defmethod url-replace ((obj clog-window) replace-url)
(execute obj (format nil "replace('~A')" replace-url))) (execute obj (format nil "replace('~A')" replace-url)))

2
source/clog-window.lisp
View file

@ -531,7 +531,7 @@ STORAGE-TYPE. (local = persistant or session)"))
STORAGE-TYPE. (local = persistant or session)")) STORAGE-TYPE. (local = persistant or session)"))
(defmethod storage-remove ((obj clog-window) storage-type key-name) (defmethod storage-remove ((obj clog-window) storage-type key-name)
(execute obj (format nil "~(~a~)Storage.removeItem(~A)" storage-type key-name))) (execute obj (format nil "~(~a~)Storage.removeItem('~A')" storage-type key-name)))
;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;
;; storage-element ;; ;; storage-element ;;