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

:format-control argument to unresolved-foreign-key error raising.

parent be82d1a7
......@@ -70,7 +70,7 @@ with the values in the given object and return it."))
(declare (ignore slot-names initargs))
(let ((class (class-of dao)))
(when (member class (db-class-unfinished-classes class))
(error 'unresolved-foreign-key :type (class-name class)))))
(error 'unresolved-foreign-key :format-control "You are trying to create an instance of a class with a foreign, non-existing reference. Create the class you are refering to." :type (class-name class)))))
(defmethod shared-initialize :after ((dao dao) slot-names &rest initargs &key &allow-other-keys)
"If :ID is provided, set the values of the slots according to the
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