Commits

Greg Slepak committed 9942dac

throw-error

Comments (0)

Files changed (1)

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))
 	)
 )