diff --git a/demos/02-demo.lisp b/demos/02-demo.lisp index d693a67..cf3ad14 100644 --- a/demos/02-demo.lisp +++ b/demos/02-demo.lisp @@ -26,16 +26,16 @@ (name-entry (create-form-element start-form :input :label (create-label start-form :content "Chat Handle:"))) (ok-button (create-button start-form :content "OK")) - (p (create-p start-form)) + (p1 (create-p start-form)) (chat-box (create-form form-box)) - (br (create-br chat-box)) + (br1 (create-br chat-box)) (messages (create-div chat-box)) - (br (create-br chat-box)) + (br2 (create-br chat-box)) (out-entry (create-form-element chat-box :input)) (out-ok (create-button chat-box :content "OK")) - (p (create-p chat-box)) + (p2 (create-p chat-box)) (user-name)) - (declare (ignore caption)(ignore br)(ignore p)) + (declare (ignore p1 p2 caption br1 br2)) (setf (hiddenp chat-box) t) (setf (background-color backdrop) :blue) (setf (height backdrop) "100vh") diff --git a/source/clog-auth.lisp b/source/clog-auth.lisp index 192d2d3..c70b66e 100644 --- a/source/clog-auth.lisp +++ b/source/clog-auth.lisp @@ -74,6 +74,7 @@ for CLOG") (defun set-on-authentication-change (body handler) (check-type body clog-body) (set-on-storage (window body) (lambda (obj data) + (declare (ignore obj)) (set-on-storage (window body) nil) (when (equalp (getf data :key) "clog-auth-token") diff --git a/source/clog-connection.lisp b/source/clog-connection.lisp index a41cb47..45edb61 100644 --- a/source/clog-connection.lisp +++ b/source/clog-connection.lisp @@ -649,6 +649,7 @@ the browser contents in case of connection loss." ;;;;;;;;;;;;;;;;;;;;;;;; (defun compiled-boot-html (path content) + (declare (ignore path content)) "Returns a compiled version version of boot.html. The compiled boot.html uses the jQuery CDN instead of the static js files." " diff --git a/source/clog-web-themes.lisp b/source/clog-web-themes.lisp index 4efafb4..19bbd29 100644 --- a/source/clog-web-themes.lisp +++ b/source/clog-web-themes.lisp @@ -113,6 +113,7 @@ Page properties: (new-comment (get-property properties :new-comment nil)) (save-edit (get-property properties :save-edit nil)) (do-delete (get-property properties :do-delete nil))) + (declare (ignore anchor)) (when new-comment (labels ((start-add (obj) (create-br obj) diff --git a/test/test-clog.lisp b/test/test-clog.lisp index 2e5f432..6ff45df 100644 --- a/test/test-clog.lisp +++ b/test/test-clog.lisp @@ -20,7 +20,7 @@ (when (draggablep tmp) (setf (property tmp "innerHTML") "

I am draggable

")) (setf tmp (create-child win "")) (set-on-mouse-enter *last-obj* (lambda (obj) + (declare (ignore obj)) (setf (property *last-obj* "innerHTML") "Inside"))) (set-on-mouse-leave *last-obj* (lambda (obj) + (declare (ignore obj)) (setf (property *last-obj* "innerHTML") "Outside"))) (set-on-mouse-click *last-obj* (lambda (obj data) + (declare (ignore obj)) (print data))) (set-on-mouse-move *last-obj* (lambda (obj data) + (declare (ignore obj)) (format t "x=~A Y=~A~%" (getf data ':x) (getf data ':y)))) (set-on-key-down win (lambda (obj data) + (declare (ignore obj)) (print data)) :disable-default t) (create-div win :content "Hello World! p") (create-div win :content "Hello World! div") @@ -72,6 +77,7 @@ (let* ((tbl (create-table win)) (cap (create-table-caption tbl :content "My Table")) (rw)) + (declare (ignore cap)) (set-border tbl :thin :solid :black) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index efa287c..6dab54c 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -501,7 +501,7 @@ replaced." :cancel-event t) (set-on-mouse-double-click placer (lambda (obj data) - (declare (ignore obj)) + (declare (ignore obj data)) (setf (hiddenp placer) t) (on-populate-control-list-win content :win win))) (set-on-event placer "resize" @@ -940,6 +940,7 @@ of controls and double click to select control." (setf (inner-html lwin) "") (set-on-mouse-click (create-div lwin :content (attribute content "data-clog-name")) (lambda (obj data) + (declare (ignore obj data)) (deselect-current-control app) (on-populate-control-properties-win content :win win) (on-populate-control-list-win content :win win))) @@ -1059,6 +1060,7 @@ of controls and double click to select control." (setf (control-properties-win app) content) (setf (properties-list app) control-list) (set-on-click side-panel (lambda (obj) + (declare (ignore obj)) (cond (is-hidden (setf (width panel) "400px") (setf is-hidden nil)) @@ -1148,6 +1150,7 @@ of controls and double click to select control." (jquery (event-editor app)))) (set-on-event-with-data (event-editor app) "clog-find" (lambda (obj data) + (declare (ignore obj)) (ignore-errors (let* ((*PACKAGE* (find-package "CLOG-USER")) (SWANK::*buffer-package* (find-package "CLOG-USER")) @@ -1982,8 +1985,7 @@ of controls and double click to select control." (defun on-quick-start (obj) "Open quick start" - (let* ((app (connection-data-item obj "builder-app-data")) - (win (create-gui-window obj :title "Quick Start" + (let* ((win (create-gui-window obj :title "Quick Start" :top 40 :left 225 :width 600 :height 400 :client-movement t))) @@ -2072,8 +2074,7 @@ of controls and double click to select control." (destructuring-bind (stream fname content-type) (form-data-item params "filename") (create-div body :content (format nil "filename = ~A - (contents printed in REPL)" fname)) - (let ((s (flexi-streams:make-flexi-stream stream)) - (b (make-string 1000)) + (let ((s (flexi-streams:make-flexi-stream stream)) (pic-data "")) (setf pic-data (format nil "data:~A;base64,~A" content-type (with-output-to-string (out) diff --git a/tools/clog-db-admin.lisp b/tools/clog-db-admin.lisp index 94ce66d..5713eed 100644 --- a/tools/clog-db-admin.lisp +++ b/tools/clog-db-admin.lisp @@ -141,6 +141,7 @@ (results-window app "select tbl_name as 'Table', sql as SQL from sqlite_master where type='table'" :title "Click for Table" :on-click-row (lambda (obj names data) + (declare (ignore obj names)) (results-window app (format nil "select rowid,* from ~A" (car data))