:db-kind :virtual))
(:metaclass standard-db-class)
(:documentation "Superclass for all CLSQL View Classes."))
+#+clisp
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (make-instance 'standard-db-object) ;; clisp requires a made object before can use in this file
+ #+nil (finalize-inheritance (find-class 'standard-db-object)) ;; this is not sufficient
+ )
(defparameter *default-string-length* 255
"The length of a string which does not have a user-specified length.")
(when keylist
(convert-to-db-default-case
(format nil "CONSTRAINT ~APK PRIMARY KEY~A"
- (database-output-sql (view-table class) database)
- (database-output-sql keylist database))
+ (sql-output (view-table class) database)
+ (sql-output keylist database))
database))))
(defmethod database-generate-column-definition (class slotdef database)