Method: (DB-JOIN DB T)

Source

(defmethod db-join ((primary db) cursor-seq &key join-item rmw)
  (let ((size (length cursor-seq)))
    (with-foreign-object (cur-list :pointer (1+ size))
      (setf (mem-aref cur-list :pointer size) (null-pointer))
      (loop for i from 0 below size
	    for cursor in cursor-seq
	    do (setf (mem-aref cur-list :pointer i)
		     (cursor-handle cursor)))
      (%db-join primary cur-list
		:join-item join-item
		:rmw rmw))))