-(defsql sql-not-null (:symbol "not-null") ()
- (make-instance 'sql-value-exp
- :components '|NOT NULL|))
+(defsql sql-not-null (:symbol "not-null") (&optional not-null-thing)
+ (if not-null-thing
+ (make-instance
+ 'sql-relational-exp
+ :operator 'IS
+ :sub-expressions (list not-null-thing
+ (sql-expression :string "NOT NULL")))
+ (sql-expression :string "NOT NULL")))