Commit cad2517e authored by ryszard.szopa's avatar ryszard.szopa
Browse files

minor documentation improvements

parent 1d8c818d
......@@ -22,7 +22,7 @@
(insert-dao dao))))
(defgeneric save-all-foreign-daos (dao)
(:documentation "Saves recursively all daos in the slots of DAO")
(:documentation "Saves recursively all foreign daos in the slots of DAO")
(:method ((dao dao))
(iter (for slot in (mapcar #'slot-definition-name (non-transient-slots-of dao)))
(let ((s-value (slot-value dao slot)))
......@@ -46,7 +46,7 @@ exists in the database.")
(intern (format nil "~A-ID-SEQ" (class-name class)) :keyword))
(defgeneric insert-dao (dao)
(:documentation "Insert the given dao into the database.")
(:documentation "Insert the given DAO into the database.")
(:method ((dao dao))
(with-object-connection (dao)
(unless (slot-boundp dao 'id)
......@@ -54,7 +54,7 @@ exists in the database.")
(postmodern::execute (sql-compile `(:insert-into ,(class-name-of dao) :set ,@(set-fields dao)))))))
(defgeneric update-dao (dao)
(:documentation "Update the dao's representation in the database
(:documentation "Update the DAO's representation in the database
with the values in the given object."))
(defmethod update-dao ((dao dao))
......@@ -94,7 +94,7 @@ with the database."
(sql-compile test))))))))
(defmacro select-dao (type &optional (test t))
"Select daos for the rows in its table for which the given test
"Select daos for the rows in its table for which the given TEST
`(select-dao-fun ,type ',test))
......@@ -42,6 +42,7 @@ ignored in all database related operations.")))
(defgeneric foreign-type-p (slot)
(:documentation "Is SLOT foreign?")
(:method ((slot db-class-slot-definition))
(typep (find-class (slot-definition-type slot)) 'db-class)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment