Commits

Greg Slepak  committed 9942dac

throw-error

  • Participants
  • Parent commits 9db4d5d

Comments (0)

Files changed (1)

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

 		(setf obj:finder (string DBOBJ_ROWID_COL finder))
 		(or (list? finder) (string? finder))
 		(setf obj:finder finder)
-		(throw (string "bad type for finder: " finder))
+		(throw-error (string "bad type for finder: " finder))
 	)
 )