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

Fix typos

Browse source
This commit is contained in:
David Botton 2022-03-01 07:47:16 -05:00
parent 5d8bfec7b7
commit 877bce792d
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-dbi.lisp
View file

@ -168,7 +168,7 @@ be set using DATA-LOAD-PLIST."))
(let ((field (slave-to-slot obj)) (let ((field (slave-to-slot obj))
(data (car (data-write-list panel (list (slave-to-slot obj)))))) (data (car (data-write-list panel (list (slave-to-slot obj))))))
(when (consp (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" (setf where (format nil "~A='~A'~A"
field field
data data

6
source/clog-docs.lisp
View file

@ -36,7 +36,11 @@
(load "source/clog-gui.lisp") (load "source/clog-gui.lisp")
(load "source/clog-web.lisp") (load "source/clog-web.lisp")
(load "source/clog-docs.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 ;; ;; make-mark-down ;;

1
source/clog-gui.lisp
View file

@ -785,6 +785,7 @@ the window will be set to keep-on-top always."))
(fire-on-window-move win))) (fire-on-window-move win)))
(clog::set-on-event win "dragstop" (clog::set-on-event win "dragstop"
(lambda (obj) (lambda (obj)
(declare (ignore obj))
(fire-on-window-move-done win))) (fire-on-window-move-done win)))
(clog::set-on-event win "resizestart" (clog::set-on-event win "resizestart"
(lambda (obj) (lambda (obj)