Commits

Greg Slepak committed 9db4d5d

extra checks

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))
+		(or (list? finder) (string? finder))
 		(setf obj:finder finder)
+		(throw (string "bad type for finder: " finder))
 	)
 )