code formatting
Tue Oct 16 14:29:53 PDT 2007 Ryszard Szopa <ryszard.szopa@gmail.com>
* code formatting
diff -rN -u old-submarine/dao.lisp new-submarine/dao.lisp
--- old-submarine/dao.lisp 2014-07-29 22:04:06.000000000 -0700
+++ new-submarine/dao.lisp 2014-07-29 22:04:06.000000000 -0700
@@ -70,7 +70,11 @@
(declare (ignore slot-names initargs))
(let ((class (class-of dao)))
(when (member class (db-class-unfinished-classes 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)))))
+ (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
@@ -108,8 +112,10 @@
(assert
(or (null value-from-init) (equal value-from-init value-from-db))
(value-from-init value-from-db)
- "Values inconsistent with the database for slot ~A. ~%Value from init: ~A, value from database: ~A~%"
- slot-name value-from-init value-from-db)))
+ "Values inconsistent with the database for
+ slot ~A. ~%Value from init: ~A, value from
+ database: ~A~%" slot-name value-from-init
+ value-from-db)))
(setf (slot-value dao slot-name)
(if (foreign-type-p slot)
(make-instance (slot-definition-type slot) :id value-from-db)