-(defclass sql-value-exp (%sql-expression)
- ((modifier
- :initarg :modifier
- :initform nil)
- (components
- :initarg :components
- :initform nil))
- (:documentation
- "An SQL value expression.")
- )
-
-(defclass sql-typecast-exp (sql-value-exp)
- ()
- (:documentation
- "An SQL typecast expression.")
- )
-(defvar +null-string+ "NULL")
-
-(defvar *sql-stream* nil
- "stream which accumulates SQL output")
-
-(defmethod output-sql ((expr %sql-expression) &optional
- (database *default-database*))
- (declare (ignore database))
- (write-string +null-string+ *sql-stream*))
-
-(defmethod print-object ((self %sql-expression) stream)
- (print-unreadable-object
- (self stream :type t)
- (write-string (sql-output self) stream)))
-
-
-;; Methods for translating high-level table classes to low-level functions
-
-(defmethod database-list-attributes ((table sql-ident) database)
- (database-list-attributes (string-downcase
- (symbol-name (slot-value table 'name)))
- database)
- )