From 877bce792de7a650ea6a8d5d070890e5472d14f5 Mon Sep 17 00:00:00 2001
From: David Botton <david@botton.com>
Date: Tue, 1 Mar 2022 07:47:16 -0500
Subject: [PATCH] Fix typos

---
 source/clog-dbi.lisp  | 2 +-
 source/clog-docs.lisp | 6 +++++-
 source/clog-gui.lisp  | 1 +
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/source/clog-dbi.lisp b/source/clog-dbi.lisp
index 3dff55e..bb062f6 100644
--- a/source/clog-dbi.lisp
+++ b/source/clog-dbi.lisp
@@ -168,7 +168,7 @@ be set using DATA-LOAD-PLIST."))
       (let ((field (slave-to-slot obj))
 	    (data  (car (data-write-list panel (list (slave-to-slot obj))))))
 	(when (consp (slave-to-slot obj))
-	  (setf flield (car field)))
+	  (setf field (car field)))
 	(setf where (format nil "~A='~A'~A"
 				field
 				data
diff --git a/source/clog-docs.lisp b/source/clog-docs.lisp
index 367e595..af6c5aa 100644
--- a/source/clog-docs.lisp
+++ b/source/clog-docs.lisp
@@ -36,7 +36,11 @@
   (load "source/clog-gui.lisp")
   (load "source/clog-web.lisp")    
   (load "source/clog-docs.lisp")
-  (load "source/clog-helpers.lisp"))
+  (load "source/clog-helpers.lisp")
+  (load "source/clog-panel.lisp")
+  (load "source/clog-presentations.lisp")
+  (load "source/clog-data.lisp")
+  (load "source/clog-dbi.lisp"))
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; make-mark-down ;;
diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index 1275344..c895c3e 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -785,6 +785,7 @@ the window will be set to keep-on-top always."))
 				   (fire-on-window-move win)))
 	     (clog::set-on-event win "dragstop"
 				 (lambda (obj)
+				   (declare (ignore obj))
 				   (fire-on-window-move-done win)))
 	     (clog::set-on-event win "resizestart"
 				 (lambda (obj)