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

plist version of sql-insert

Browse source
This commit is contained in:
David Botton 2022-02-20 19:43:14 -05:00
parent 52cdb8cf20
commit dafb77bc12
2 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
source/clog-data.lisp
View file

@ -189,6 +189,17 @@ character '?'."
(sql-field-list field-list)
(sql-value-list value-list)))
;;;;;;;;;;;;;;;;;
;; sql-insert* ;;
;;;;;;;;;;;;;;;;;
(defun sql-insert* (table plist)
"Build basic sql insert statement using a plist"
(loop for (key value) on plist by #'cddr while value
collect key into fields
collect value into values
finally (return (sql-insert table fields values))))
;;;;;;;;;;;;;;;;
;; sql-update ;;
;;;;;;;;;;;;;;;;

1
source/clog.lisp
View file

@ -534,6 +534,7 @@ embedded in a native template application.)"
(sql-update-list function)
(sql-select function)
(sql-insert function)
(sql-insert* function)
(sql-update function))
(defsection @clog-panels (:title "CLOG Panels")