- (loop while (skip-cursor-row (cdr result-set))
- finally (setf (car result-set) t)))))
-
-(defmethod database-store-next-row
- (result-set (database postgresql-socket-database) list)
- (let ((cursor (cdr result-set)))
+ (loop while (skip-cursor-row
+ (postgresql-socket-result-set-cursor result-set))
+ finally (setf (postgresql-socket-result-set-done result-set) t)))))
+
+(defmethod database-store-next-row (result-set
+ (database postgresql-socket-database)
+ list)
+ (let ((cursor (postgresql-socket-result-set-cursor result-set)))