+ t t t t t t)
+
+;; Ensure classes are correctly marked normalised or not, default not
+;(deftest :ooddl/metaclass/3
+; (values
+; (clsql-sys::normalisedp derivednode1)
+; (clsql-sys::normalisedp basenode)
+; (clsql-sys::normalisedp company1)
+; (clsql-sys::normalisedp employee3)
+; (clsql-sys::normalisedp derivednode-sc-2))
+; t nil nil nil t)
+
+;(deftest :ooddl/metaclass/3
+; (values
+; (normalisedp (find-class 'baseclass))
+; (normalisedp (find-class 'normderivedclass)))
+; nil t)