Commit 4cb2a90f authored by ryszard.szopa's avatar ryszard.szopa
Browse files

conditions go to a separate file

darcs-hash:a70b5b9c8b99a666f1a10f4a895c522ef0d8202c
parent 565850a9
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; -*-
(in-package :submarine)
;; DAO conditions
(define-condition dao-error (simple-error)
((type :initarg :type :reader table-name))
(:documentation "Base class for DAO related errors."))
(define-condition dao-nonexistent-id (dao-error)
((id :initarg :id :reader id))
(:documentation "Condition signaling the attempt to initialize a dao
with a non-existant ID."))
(define-condition unresolved-foreign-key (dao-error)
()
(:documentation "Condition signaling that a class with a foreign-key
reference to a non-defined class has been tried to be used."))
......@@ -2,17 +2,6 @@
(in-package :submarine)
;; DAO conditions
(define-condition dao-error (simple-error)
((type :initarg :type :reader table-name))
(:documentation "Base class for DAO related errors."))
(define-condition dao-nonexistent-id (dao-error)
((id :initarg :id :reader id))
(:documentation "Condition signaling the attempt to initialize a dao
with a non-existant ID."))
;;
;; DAO
;;
......
......@@ -9,6 +9,7 @@
:serial t
:components
((:file "package")
(:file "conditions")
(:file "utilities")
(:file "mop")
(:file "db")
......
Supports Markdown
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