Commits

Greg Slepak committed 9906379

bugfix

Comments (0)

Files changed (1)

example-site/dragonfly-framework/plugins-inactive/db/database_orm.lsp

 	)
 )
 
+(define (dbobj-set-finder obj finder)
+	(if (integer? finder)
+		(setf obj:finder (string DBOBJ_ROWID_COL finder))
+		(setf obj:finder finder)
+	)
+)
+
 (define (dbobj-refetch obj)
 	(set 'obj:dirty      nil
 	     'obj:revert-set (dbobj-assoc-row obj:db obj:table (map first obj:revert-set) obj:finder 1)
 	)
 )
 
-(define (dbobj-refind obj finder)
-	(if (integer? finder)
-		(setf obj:finder (string DBOBJ_ROWID_COL finder))
-		(setf obj:finder finder)
-	)
-	(dbobj-refetch obj)
-)
-
 ; returns list of saved differences on successful update, 0 if no update was needed, or nil if update failed
 (define (dbobj-save obj , diff)
 	(if (null? (setf diff (difference obj:change-set obj:revert-set)))