1. Kurt Miebach
  2. dragonfly-newlisp

Commits

Greg Slepak  committed a5e067a

bugfix

  • Participants
  • Parent commits c415a26
  • Branches default

Comments (0)

Files changed (1)

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

View file
  • Ignore whitespace
 (define (find-dbobj db table cols finder (limit 1) , data)
 	(when (integer? finder) (setf finder (string DBOBJ_ROWID_COL finder)))
 	(when (setf data (dbobj-assoc-rows db table cols finder limit))
-		(if (> (length data) 1)
+		(if (> limit 1)
 			(map (fn (x) (instantiate DB.OBJ db table x finder)) data)
 			(instantiate DB.OBJ db table (first data) finder)
 		)