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

url-rewrite

Browse source
This commit is contained in:
David Botton 2022-09-20 14:33:54 -04:00
parent 659b0d31c2
commit ba8dbbe4e7
3 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
source/clog-location.lisp
View file

@ -176,7 +176,7 @@
;;;;;;;;;;;;;;;;;
(defgeneric url-replace (clog-location replace-url)
(:documentation "Replace browser url, ie a redirection and current URL not
(:documentation "Replace browser url, i.e. a redirection and current URL not
saved in session history and back button will not return to it."))
(defmethod url-replace ((obj clog-location) replace-url)
@ -187,7 +187,8 @@ saved in session history and back button will not return to it."))
;;;;;;;;;;;;;;;;
(defgeneric url-assign (clog-location assign-url)
(:documentation "Assign browser url."))
(:documentation "Assign browser url, i.e. a redirection to assign-url
that will be saved in session histoy and back button will return to it."))
(defmethod url-assign ((obj clog-location) assign-url)
(execute obj (format nil "assign('~A')" assign-url)))