Rename fetch-dao to fetch-dao-from-cursor and unexport it.

fukamachi · Aug 7, 2024 · 57a260d · 57a260d
1 parent c0100e1
commit 57a260d
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/core/dao.lisp b/src/core/dao.lisp
@@ -53,8 +53,6 @@
            #:delete-by-values
            #:save-dao
            #:select-dao
-           #:*want-cursor*
-           #:fetch-dao
            #:select-by-sql
            #:includes
            #:include-foreign-objects
@@ -216,8 +214,7 @@
       (make-mito-cursor :cursor cursor
                         :class class))))
 
-(defun fetch-dao (cursor)
-  (check-type cursor mito-cursor)
+(defun fetch-dao-from-cursor (cursor)
   (let ((row (dbi:fetch (mito-cursor-cursor cursor)
                         :format :alist)))
     (when row
@@ -456,7 +453,7 @@
               (let* ((*want-cursor* t)
                      (,cursor ,select))
                 (loop ,@(and index `(for ,index from 0))
-                      for ,dao = (fetch-dao ,cursor)
+                      for ,dao = (fetch-dao-from-cursor ,cursor)
                       while ,dao
                       do (progn ,@body)))))
        (if (dbi:in-transaction *connection*)