+#+clisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (make-instance 'standard-db-object)
+ (finalize-inheritance (find-class 'standard-db-object)))
+
+(defparameter *default-string-length* 255
+ "The length of a string which does not have a user-specified length.")