-#-clisp
-(defstruct sqlite-result-set
- (vm (sqlite:make-null-vm)
- :type sqlite:sqlite-vm-pointer)
- (first-row (sqlite:make-null-row)
- :type sqlite:sqlite-row-pointer-type)
- (n-col 0 :type fixnum))
-#+clisp
-(defstruct sqlite-result-set
- (vm nil)
- (first-row nil)
- (n-col 0 :type fixnum))
-
-(defmethod database-query-result-set
- ((query-expression string) (database sqlite-database) &key full-set result-types)
- (declare (ignore full-set result-types))
+(defmethod database-query-result-set ((query-expression string)
+ (database sqlite-database)
+ &key result-types full-set)