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

SBCL caught errors

Browse source
This commit is contained in:
David Botton 2021-03-07 19:59:36 -05:00
parent 65d103f906
commit d3ac4741c9
6 changed files with 36 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

22
source/clog-window.lisp
View file

@ -328,24 +328,24 @@ events and messages may not be trasmitted on most browsers."))
(defmethod scroll-to ((obj clog-window) x y)
(execute obj (format nil "scrollTo(~A,~A)" x y)))
;;;;;;;;;;;;;
;; move-by ;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;
;; move-window-by ;;
;;;;;;;;;;;;;;;;;;;;
(defgeneric move-by (clog-window x y)
(defgeneric move-window-by (clog-window x y)
(:documentation "Move browser window by x y."))
(defmethod move-by ((obj clog-window) x y)
(defmethod move-window-by ((obj clog-window) x y)
(execute obj (format nil "moveBy(~A,~A)" x y)))
;;;;;;;;;;;;;
;; move-to ;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;
;; move-window-to ;;
;;;;;;;;;;;;;;;;;;;;
(defgeneric move-to (clog-window x y)
(defgeneric move-window-to (clog-window x y)
(:documentation "Move browser window to x y."))
(defmethod move-to ((obj clog-window) x y)
(defmethod move-window-to ((obj clog-window) x y)
(execute obj (format nil "moveTo(~A,~A)" x y)))
;;;;;;;;;;;;;;;
@ -484,7 +484,7 @@ on-storage event is fired for changes to :local storage keys."))
(local = persistant or session)"))
(defmethod storage-length ((obj clog-window) storage-type)
(parse-integer (query obj "~(~a~)Storage.length" storage-type)))
(parse-integer (query obj (format "~(~a~)Storage.length" storage-type))))
;;;;;;;;;;;;;;;;;
;; storage-key ;;